Private Sub saveauto() Dim myDate As DateTime If Not DateTime.TryParseExact(TextBox1.Text, "dd/MM/yyyy", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, myDate) Then MessageBox.Show("Date Error") Exit Sub End If Try MessageBox.Show("Date is valid") Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
If Not DateTime.TryParseExact(TextBox1.Text, "MM/dd/yyyy", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, myDate) Then
DateTime.Now.ToString("MM/dd/yyyy") DateTime.Now.ToString("dd/MM/yyyy"))
Private Sub saveauto() Dim myDate As DateTime Dim saveimage As Bitmap Dim p As New ClassImpression(Me) If Not (DateTime.TryParse(TxtDate.Text, myDate)) Then MessageBox.Show("Date Error") Exit Sub End If saveimage = p.GetPreview Try saveimage.Save("\\rep" & A.Text & "-" & B.Text & "-" & C.Text & "-" & D.Text & "-" & myDate.ToString("MMddyyyy") & ".jpeg", ImageFormat.Jpeg) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question