dotNETportal.cz

Ve vb.net snad:

Je-li textbox prázdný, nejde dál a otravuje s vyplněním:

    Private Sub TextBoxes_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
        Handles TextBox1.Validating, TextBox2.Validating, TextBox3.Validating
        If CType(sender, TextBox).Text = "" Then e.Cancel = True
    End Sub

Zřejmě ale nelze použít Validating event...

Moc díky za kritická doporučení

a připomínky včetně výkladu.

Nedalo se to nezkusit a dle vašeho

příspěvku ověřit tři textboxy:

Imports System.Windows.Forms
Public Class Form2
    Dim tb As TextBox
    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        Const dist As Integer = 4
        For i As Integer = 1 To 3
            tb = New TextBox
            With tb
                .Name = "TextBox" & i
                .Top = (i - 1) * .Height + i * dist
                .Left = dist
            End With
            Me.Controls.Add(tb)
            AddHandler tb.Validating, AddressOf TextBoxes_Validating
        Next
    End Sub

    Private Sub TextBoxes_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
        Dim n As Double
        tb = DirectCast(sender, TextBox)
        If Not Double.TryParse(tb.Text, n) Then
            'Číslo nevyhovuje formátu desetinných čísel pro
            'formátovací kulturu aktuálního vlákna.
            e.Cancel = True
        End If
    End Sub
End Class

Proč nepoužíváte událost k validaci určenou?

Private Sub tb1(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles tb1.Validating
  Dim n As Double
  If Not Double.TryParse(tb1.Text, n) Then
    'Číslo nevyhovuje formátu desetinných čísel pro
    'formátovací kulturu aktuálního vlákna.
    e.Cancel = True
  End If
End Sub

CType se používá k explicitní konverzi typů a je kompilováno inline. Oba typy musí být vzájemně konvertovatelné, jinak dojde k vyjímce.

DirectCast je konverze založená na dědičnosti a implementaci a je výrazně rychlejší než CType. Mezi typy musí existovat dědičný vztah nebo jeden typ musí implementovat druhý, jinak dojde k vyjímce.