Visual Basic

Member 10570421 wrote:

How can one enter an IP addy into a text box and tell DOS to Ping that IP addy and display that result in a text box?

Member 10570421 wrote:

Things discovered in this project could really be helpful to others.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Joannou H. Fegarido wrote:

Then, a second time around I refresh my datagridview to start again the timer.
My Timer doesn't work as what it did when i first load my program to run my timer in datagridview. Any idea how to fix my problem.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Joannou H. Fegarido wrote:

I do not know how to fix it.

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Dim name As String
       Dim number As String
 

           If i < TblContactsDataGridView.Rows.Count - 1 Then 'stay within bounds

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Dim name As String
       Dim number As String
       Dim i As Integer = 0
 
           If i < TblContactsDataGridView.Rows.Count - 1 Then 'stay within bounds

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Timer3.Stop()
    i = 0
    frmStatus.ShowDialog()

"Await is not Declared. It may be inaccessable due to its protection level"

"CopyToAsync is not a member of System.IO.FileStream"

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim StartDirectory As String = "Resource\Start"
    Dim EndDirectory As String = "Resource\end"

    For Each filename As String In Directory.EnumerateFiles(StartDirectory)
        Using SourceStream As FileStream = File.Open(filename, FileMode.Open)
            Using DestinationStream As FileStream = File.Create(EndDirectory + filename.Substring(filename.LastIndexOf("Resource")))
                Await(SourceStream.CopyToAsync(DestinationStream))
            End Using

        End Using
    Next
End Sub

If (Not System.IO.Directory.Exists("Resource")) Then
       System.IO.Directory.CreateDirectory("Resource")
   End If


   Dim OpenFileDialog1 As New OpenFileDialog
   With OpenFileDialog1
       .CheckFileExists = True
       .ShowReadOnly = False
       .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
       .FilterIndex = 2

       '
       If .ShowDialog = DialogResult.OK Then
           Dim FName() As String = OpenFileDialog1.FileName.Split("\\")
           System.IO.File.Copy(OpenFileDialog1.FileName, "Resource\\" + FName(FName.Length - 1))
           PictureBox1.Image = Image.FromFile(.FileName)
           Profile.PictureBox1.Image = Image.FromFile(.FileName)
       End If
   End With

Dim appPath As String = Application.StartupPath
Dim resourcesFolderPath As String = Path.Combine(appPath, "Resources")
Dim imageFilePath As String = Path.Combine(resourcesFolderPath, someUserPickedFilename)

Dim filename As String = Path.GetFileName(userSelectedPath)

'Declaration
<SerializableAttribute> _
<ComVisibleAttribute(True)> _
<TypeConverterAttribute(GetType(ImageConverter))> _
Public MustInherit Class Image _
    Inherits MarshalByRefObject _
    Implements ISerializable, ICloneable, IDisposable

Namespace My
   Partial Friend NotInheritable Class MySettings
      ' The trick here is to tell it serialize as binary
      <Global.System.Configuration.SettingsSerializeAs(Configuration.SettingsSerializeAs.Binary)> _
      <Global.System.Configuration.UserScopedSettingAttribute()> _
      Public Property StoredImage() As System.Drawing.Image
         Get
            ' the String in: Me("StoredImage") must be the name of the setting
            Return DirectCast(Me("StoredImage"), System.Drawing.Image)
         End Get
         Set(ByVal value As System.Drawing.Image)
            ' the String in: Me("StoredImage") must be the name of the setting
            Me("StoredImage") = value
         End Set
      End Property

      ''' <summary>Dictionary of Images keyed on username</summary>
      <Global.System.Configuration.SettingsSerializeAs(Configuration.SettingsSerializeAs.Binary)> _
      <Global.System.Configuration.UserScopedSettingAttribute()> _
      Public Property UserImages() As Dictionary(Of String, System.Drawing.Image)
         Get
            ' the String in: Me("UserImages") must be the name of the setting
            If Me("UserImages") Is Nothing Then
               Me("UserImages") = New Dictionary(Of String, System.Drawing.Image)
            End If
            Return DirectCast(Me("UserImages"), Dictionary(Of String, System.Drawing.Image))
         End Get
         Set(ByVal value As Dictionary(Of String, System.Drawing.Image))
            ' the String in: Me("UserImages") must be the name of the setting
            Me("UserImages") = value
         End Set
      End Property
   End Class
End Namespace

Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim imgdialog As New System.Windows.Forms.OpenFileDialog()
      imgdialog.Filter = "Image Files (*.bmp, *.jpg)|*.bmp;*.jpg|All Files (*.*)|*.*"
      If imgdialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Dim img As Image = Image.FromFile(imgdialog.FileName)
         My.Settings.StoredImage = img
         If My.Settings.UserImages.ContainsKey("username") Then
            My.Settings.UserImages("username") = img
         Else
            My.Settings.UserImages.Add("username", img)
         End If
         My.Settings.Save() ' Save the new values.
      End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      PictureBox1.Image = My.Settings.StoredImage
      If My.Settings.UserImages.ContainsKey("username") Then
         PictureBox2.Image = My.Settings.UserImages("username")
      End If
   End Sub

End Class

'Public Property StoredImage As System.Drawing.Image' and 'Public Property StoredImage As String' cannot overload each other because they differ only by return types.