Dim strPictureFolderPath As String = String.Empty
                Try
                    Dim query = From p In ds_parameter.Tables( _
                      "parameter").AsEnumerable() _
                                Where p!parameter1 = "picture_folder" _
                                Select p!parameter2
                    strPictureFolderPath = query.Single()
                Catch ex As Exception
                    strPictureFolderPath = AppDomain.CurrentDomain.BaseDirectory
                End Try
 
                'Define the local temp folder for caching picture files
                Dim LocalDirectoryPath As String = Environment.GetFolderPath( _
                  Environment.SpecialFolder.ApplicationData) & "\PersView"
                If Directory.Exists(LocalDirectoryPath) = True Then
                Else
                    Directory.CreateDirectory(LocalDirectoryPath)
                End If
 
                ' prepare picturebox
                picbx_profilpicture.Show()
                picbx_profilpicture.SizeMode = PictureBoxSizeMode.Zoom
 
                'process download of picture and show it
                If Directory.Exists(strPictureFolderPath) Then
                    If bool_show_my_picture = True Then
                        Dim pathLocalPicture As String = LocalDirectoryPath + _
                          "\" + dt.Rows(0).Item(12).ToString()
                        If File.Exists(strPictureFolderPath + "\" + dt.Rows( _
                        0).Item(12).ToString()) Then
                            If File.Exists(pathLocalPicture) Then
                            End If
                            Try
                                File.Delete(pathLocalPicture)
                            Catch ex As Exception
                            End Try
                                File.Copy(strPictureFolderPath + "\" + dt.Rows( _
                                  0).Item(12).ToString(), pathLocalPicture)
                                picbx_profilpicture.Image = _
                                System.Drawing.Image.FromFile(pathLocalPicture)
                            Else
                                picbx_profilpicture.Image = _
                                  System.Drawing.Image.FromFile( _
                                  AppDomain.CurrentDomain.BaseDirectory + _
                                  "\\default.bmp")
                            End If
                        Else
                            picbx_profilpicture.Image = _
                              System.Drawing.Image.FromFile( _
                              AppDomain.CurrentDomain.BaseDirectory + _
                              "\\default.bmp")
                        End If
                    Else
                        picbx_profilpicture.Image = _
                          System.Drawing.Image.FromFile( _
                          AppDomain.CurrentDomain.BaseDirectory + _
                          "\\default.bmp")
                    End If
                End If
        Catch ex As Exception
            MsgBox("Datenbank Fehler ! Bitte informieren sie ihren" & _
              "Administrator darüber." + Convert.ToString(ex), _
              MsgBoxStyle.OkOnly)

_________________________________________________________________________________

Systemintegrator der Spa? am Programmieren gefunden hat!
Bitte nicht hauen, wenn ich etwas Falsches, oder Quatsch von mir gebe ;)

Beitrag wurde zuletzt am 13.07.12 um 13:16:40 editiert.