eyelash
شنبه 08 مهر 1385, 11:45 صبح
سلام و وقت به خیر
من یک فرم دارم که تعداده TextBox و یک Listboxدر آن هست و کلیدی که با مقدار دهی کلیه این کنترل ها فعال می شود.
من برای بررسی وضعیت کنترل ها تابعی نوشتم که کلیه این کنترل ها را بررسی می کند و در صورت مقدار دهی آنها کلید را فعال و در غیر اینصورت آن را غیر فعال می کند.
برای فراخوانی این تابع من از رویداد KeyPreessکلیه این کنترل ها استفاده کردم و برای این رویداد .در تمام کنترل ها تابع را فراخوانی کردم ولی عملکرد مناسبی نداشت
اگه می شه یک رویداد مناسب معرفی کنید که به محض زدن کلید در یک کنترل اجرا شود.
البته ممکن هم هست مشکل ز تابع من باشه که کد آن را اینجا قرار می دم.
Private Function NextButtonEnabled()
Dim fillAll As Boolean = True
If Me.txtbName.Text = "" Then
fillAll = False
End If
If Me.txtbCountPackage.Text = "" Then
fillAll = False
End If
If Me.rtxtDetail.Text = "" Then
fillAll = False
End If
If Me.txtbMediumInPackage.Text = "" Then
fillAll = False
End If
If Me.txtbPricePackage.Text = "" Then
fillAll = False
End If
If Me.lstbtopic2.Visible = True Then
If Me.lstbtopic2.SelectedIndex = -1 Then
fillAll = False
End If
Else
If Me.txtDetailTopic.Text = "" Then
fillAll = False
End If
End If
If fillAll = False Then
Me.BtnNext.Enabled = False
Else
Me.BtnNext.Enabled = True
End If
End Function
من یک فرم دارم که تعداده TextBox و یک Listboxدر آن هست و کلیدی که با مقدار دهی کلیه این کنترل ها فعال می شود.
من برای بررسی وضعیت کنترل ها تابعی نوشتم که کلیه این کنترل ها را بررسی می کند و در صورت مقدار دهی آنها کلید را فعال و در غیر اینصورت آن را غیر فعال می کند.
برای فراخوانی این تابع من از رویداد KeyPreessکلیه این کنترل ها استفاده کردم و برای این رویداد .در تمام کنترل ها تابع را فراخوانی کردم ولی عملکرد مناسبی نداشت
اگه می شه یک رویداد مناسب معرفی کنید که به محض زدن کلید در یک کنترل اجرا شود.
البته ممکن هم هست مشکل ز تابع من باشه که کد آن را اینجا قرار می دم.
Private Function NextButtonEnabled()
Dim fillAll As Boolean = True
If Me.txtbName.Text = "" Then
fillAll = False
End If
If Me.txtbCountPackage.Text = "" Then
fillAll = False
End If
If Me.rtxtDetail.Text = "" Then
fillAll = False
End If
If Me.txtbMediumInPackage.Text = "" Then
fillAll = False
End If
If Me.txtbPricePackage.Text = "" Then
fillAll = False
End If
If Me.lstbtopic2.Visible = True Then
If Me.lstbtopic2.SelectedIndex = -1 Then
fillAll = False
End If
Else
If Me.txtDetailTopic.Text = "" Then
fillAll = False
End If
End If
If fillAll = False Then
Me.BtnNext.Enabled = False
Else
Me.BtnNext.Enabled = True
End If
End Function