ต้องการส่ง parameter ที่เป็น textbox ไปกับ subroutine ต้องปรับโค้ดอย่างไรครับ
Posted: Fri Apr 07, 2023 6:07 am
ผมใช้โค้ดประมาณนี้ครับ
แล้วก็เอาไปใช้กับ event textbox ประมาณนี้
แต่มันฟ้อง error ว่า Value of type 'VisualStyleElement.TextBox' cannot be converted to 'String'. ผมต้องปรับโค้ดอย่างไรครับ
Code: Select all
Private Sub SetIfToTextbox(textbox As TextBox, text As String)
If textbox.Text = text Then
textbox.Text = ""
End If
End Sub
Code: Select all
Private Sub txbCarbrand_GotFocus(sender As Object, e As EventArgs) Handles txbCarbrand.GotFocus
SetIfToTextbox(txbCarbrand, "กรอกยี่ห้อรถตรงนี้")
End Sub
Private Sub txbCarno_GotFocus(sender As Object, e As EventArgs) Handles txbCarno.GotFocus
SetPlaceholderText(txbCarno, "ใส่เลขทะเบียนตรงนี้")
End Sub