Visual Basic

Re: mpeg file encryption and compression...urgent!!!!

25-Jan-08 7:25

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

Paul Conrad24-Jan-08 5:01

Re: Convert FileOpen in .net

24-Jan-08 5:01

zeeshi_24 wrote:
send me the complete code in vb.net or c#

It does not work like that around here. You need to try and do your own work, and when you are stumped, ask for help.

zeeshi_24 wrote:
.i need help in encryption and compression of video file (mpeg)..

Google it.

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

Convert FileOpen in .net

soniasan23-Jan-08 23:45

soniasan

23-Jan-08 23:45

<br />
 Public Sub log_error(ByRef msg As String)<br />
        If g_Trace = 1 Then<br />
            On Error Resume Next<br />
            FileOpen(255, VB6.GetPath & "\err.log", OpenMode.Append)<br />
            PrintLine(255, msg & "  " & Today & "  " & TimeOfDay)<br />
            FileClose(255)<br />
<br />
  End Sub<br />

Please tell me how i will convert this code into vb.net.....

I will be very much Thankful.

Paul Conrad24-Jan-08 6:56

Re: Convert FileOpen in .net

24-Jan-08 6:56

soniasan wrote:
how i will convert this code into vb.net.....

Meet my friend, google.com[^]....

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

Tom John24-Jan-08 7:04

Tom John

24-Jan-08 7:04

    Public Sub LogError(ByVal message As String)<br />
<br />
        Dim filename As String = System.IO.Path.Combine(Environment.CurrentDirectory, "err.log")<br />
        Using writer As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(filename, True)<br />
            writer.WriteLine(message & Date.Now.ToString(" dd.MM.yy HH:mm:ss"))<br />
        End Using<br />
<br />
    End Sub

Hope this helps

Tom

How to read text / csv file by ado.net using vb.net 2005 [modified]

ejaz_pk23-Jan-08 22:42

ejaz_pk

23-Jan-08 22:42

How can I read a text or csv file by ado.net.The following code is working fine with vb 6.0 but when I try to use the same code with vb.net 2005 it gives me an error at <b>Rcdfile.open </b>line.

The following error I am getting.

[Microsoft][ODBC Text Driver]'6.0' is not a valid name.Make sure that it does not include invalid character or punctuation and that it is not too long.

Here is the code which I am using to open the file.

Dim Conn As New ADODB.Connection
Dim RcdFile As New ADODB.Recordset

Conn.Open("Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & mPath & " ; ";Extensions=asc,csv,tab,txt;HDR=NO;Persist Security Info=False")

RcdFile.Open("Select * From " & Me.OpenFileDialog.FileName & "", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)

Any idea where I am wrong.

THanks in advance

<div class="ForumMod">modified on Thursday, January 24, 2008 9:39:36 AM</div>

Re: How to read text / csv file by ado.net using vb.net 2005

ejaz_pk25-Jan-08 1:21

ejaz_pk

25-Jan-08 1:21

I got the problem.Actually I was giving the filename with the path in the file open line where it should be only filename without path.

What is Wrong with the Following Function

Vimalsoft(Pty) Ltd23-Jan-08 21:02

23-Jan-08 21:02

hi all

i have the Following function, that inspect a string and return an integer for a certain partten. Every time i run this Function it returns "0", for example if i pass "PV000000" it will return "0" if i pass "GEOSS001" it will return "0", what is wrong

<br />
 Private Function FindCategory(ByVal strFunc_key As String) As Integer<br />
        Dim intval As Integer<br />
<br />
        If strFunc_key.Substring(0, 4) = "GEOSS" Then<br />
            intval = 12<br />
        ElseIf strFunc_key.Substring(0, 4) = "PV000" Then<br />
            intval = 1<br />
        ElseIf strFunc_key.Substring(0, 4) = "PVDIF" Then<br />
            intval = 2<br />
        ElseIf strFunc_key.Substring(0, 4) = "PVNTR" Then<br />
            intval = 3<br />
        End If<br />
        Return intval<br />
<br />
    End Function<br />
<br />

Thanks

Vuyiswa Maseko,

Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding

VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za

Rupesh Kumar Swami23-Jan-08 21:33

Rupesh Kumar Swami

23-Jan-08 21:33

hi,
consider this line

If strFunc_key.Substring(0, 4) = "GEOSS" Then

the substring function takes two argumets in above line. first is start index & second is length of string which you specify 4. so how can you compare this substring(4 character) to other string(Geoss,pv000 etc)

use following statement

If strFunc_key.Substring(0, 5) = "GEOSS" Then<br />
 intval = 12<br />
endif

hope this helps

Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)

My Company

Vimalsoft(Pty) Ltd23-Jan-08 22:50

23-Jan-08 22:50

Hi Rupesh Kumar Swami

Thank you very much, i understand, the mistake i made, is that i started counting the string am comparing from "0" instead of "1"

Thanks its working

Steven J Jowett23-Jan-08 22:11

Steven J Jowett

23-Jan-08 22:11

Firstly you need to test for 5 characters not 4 e.g. "GEOSS" contains 5 characters
Secondly what happens if not of the conditions are true?

Personally, I would use a SELECT CASE rather than nested IFs

example :-

Private Function FindCategory(ByVal strFunc_key As String) As Integer<br />
Dim intval As Integer<br />
<br />
Select Case strFunc_key.Substring(0, 4) <br />
CASE "GEOSS"<br />
intval = 12<br />
Case = "PV000" <br />
intval = 1<br />
Case "PVDIF" <br />
intval = 2<br />
Case "PVNTR" <br />
intval = 3<br />
Case Else<br />
intval = 0<br />
End Select<br />
Return intval<br />
<br />
End Function

Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'

Vimalsoft(Pty) Ltd23-Jan-08 23:11

UserControl Not part of form

23-Jan-08 23:11

Thank very much

its working, my mistake

Thanks

plural23-Jan-08 20:25

plural

23-Jan-08 20:25

I have created a windows user control but whenever i add to a form in a new project it tells me that the control is not part of the form

Plz help.

The control is a GUI Control that i drop on a form..

ther error is like this

"UserCOntrol1 not part of me.Form1"
Thanks

phatkin

Re: UserControl Not part of form

plural23-Jan-08 20:26

plural

23-Jan-08 20:26

I also hope we can have a single user control project with multiple controls inside?

Thanks

phatkin

drag and drop in two listbox

sumit703423-Jan-08 19:12

Re: drag and drop in two listbox

23-Jan-08 19:12

I have two ListBox in vb.net. I want if a user drag any item from one listbox and drop it into other then it got add in other listbox.]
please help

C1AllenS25-Jan-08 0:17

C1AllenS

25-Jan-08 0:17

Hello,

You can try out this code. I have used two Listboxes on a form.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim i As Integer<br />
<br />
        For i = 0 To 19<br />
<br />
            Me.ListBox1.Items.Add("Item " & (i + 1).ToString)<br />
<br />
        Next<br />
<br />
    End Sub<br />
<br />
<br />
    Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown<br />
<br />
        Try<br />
<br />
            ListBox1.DoDragDrop(ListBox1.SelectedItem, DragDropEffects.Copy)<br />
<br />
        Catch ex As Exception<br />
<br />
            MsgBox("Drag Error: " & ex.Message)<br />
<br />
        End Try<br />
<br />
    End Sub<br />
<br />
<br />
<br />
    Private Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop<br />
<br />
        ListBox2.Items.Add(e.Data.GetData(DataFormats.Text))<br />
<br />
    End Sub<br />
<br />
<br />
<br />
    Private Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter<br />
     <br />
        If e.Data.GetDataPresent(DataFormats.Text) Then<br />
<br />
            e.Effect = DragDropEffects.Copy<br />
<br />
        Else<br />
<br />
            MessageBox.Show("No Text Present")<br />
            e.Effect = DragDropEffects.None<br />
<br />
        End If<br />
End Sub

I believe this should assist you.

Regards,
Allen

Allen Smith

Software Engineer
ComponentOne LLC
www.componentone.com

Re: drag and drop in two listbox

sumit703422-Oct-08 22:48

22-Oct-08 22:48

Thanks Its Working

To get focus on textbox

sumit703423-Jan-08 18:07

23-Jan-08 18:07

In vb.net I want when i run the form then initially by default the focus is on the textbox1.I set its tabindexproperty to zero but it wont works.
I also set TextBox1.Focus=true on form load event it also not works.
please help me.

Paul Conrad23-Jan-08 18:13

23-Jan-08 18:13

Have you tried the SetFocus() method?

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

sumit703423-Jan-08 18:24

23-Jan-08 18:24

Thanks for the suggestion but there is no setfocus method in vb.net. it is in vb6.

Paul Conrad23-Jan-08 18:42

23-Jan-08 18:42

sumit7034 wrote:
it is in vb6

What? Your code?

VB.NET has a Focus() method. I teach it to my college students every semester Smile | :)

I meant Focus and not SetFocus $Shucks | :-\$

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

sumit703423-Jan-08 18:57

23-Jan-08 18:57

actually sir focus() method is working on button click event but i m trying it on form load event where it is not working.

Vimalsoft(Pty) Ltd24-Jan-08 1:57

24-Jan-08 1:57

hi sumit7034

thats Simple and vote for this thread after this

first this you want to set a focus on a textbox onload ? well do the following. in your formload put in the following code

<br />
 'Set the Focus to your textbox when the form load<br />
   Tetxtbo1.Focus()<br />
 'Disable the button, because the focus will go to it first<br />
   Button1.Enabled = False<br />

on your textbox in the KeyPress event put in the following code

<br />
    'Enabling  the Button when a user start entering something on the<br />
    'textbox<br />
     search.Enabled = True<br />

Hope this Helps

Thanks