Visual Basic

Justin Perez wrote:

I'm going to become rich when I create a device that allows me to punch people in the face over the internet.

Justin Perez wrote:

You will find a job flipping burgers will better suit you.

zeeshi_24 wrote:

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

zeeshi_24 wrote:

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

soniasan wrote:

how i will convert this code into vb.net.....

    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

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

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

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

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

sumit7034 wrote:

it is in vb6