domfootwear > 23-07-11, 02:41 PM
(23-07-11, 01:58 PM)quanghoasla Đã viết: Vẫn bị bạn ơi. bạn test thử xem sao. cái đó hiện thông báo lỗi như sau: Run-time error : 13 type mistmachLỗi trên là do bạn nhập chuổi vào InputBox, thôi thì khai báo cho nhập chuổi lẫn số.
Private Sub cmdInputBox_Click()
Dim strName 'As Integer
strName = InputBox("Tui lµ InputBox TiÕng ViÖt ®©y nÌ b¹n ¬i ", "InputBox TiÕng ViÖt ®©y nÌ")
If Len(strName) = 0 Then Exit Sub
MsgBox strName, vbInformation, "Xin chµo tÊt c¶ c¸c b¹n"
End Sub