Visual Basic

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.

TheComputerMan wrote:

I can't seem to find anything specific on the web, or in Code Project.

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

TheComputerMan wrote:

It is implemented in Visual Basic therefore the question is legitimate.

TheComputerMan wrote:

I will ask in the suggested forum however although I have already searched that and found nothing specific.

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

TheComputerMan wrote:

I simply re-compiled version 2.5 to target the .NET 4.0 framework. Since the problem does not exist in 2.5 I am happy

Public Class UserControl1
   Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
      OnClick(e)
   End Sub
End Class