مشكل text box در ويژوال بيسيك

[mehdiafzali]

سلام
چطوري ميشه دو مقدار در يك زمان به text box بدهيم به طور مثال وقتي روي command1 كليك مي كنيم (مهدي) را در text box چاپ كند و وقتي دوباره روي command2 كليك مي كنيم مقدار(افضلي) را در كنار مهدي قرار دهد.
خيلي ممنون

[محسن واژدی]

سلام علیکم

دستور زیر نیز این کار را انجام میدهد:
Dim nums%
Private Sub Command1_Click()
nums% = nums% + 1
If nums% = 1 Then
Text1 = "مهدي"
ElseIf nums% = 2 Then
Text1 = Text1 & " افضلي"
End If
End Sub


موفق باشید