1. การเชื่อมฟิลด์ ใช้เครื่องหมาย +''+ ฟิลด์ที่ต้องการเชื่อมแล้วตามด้วย as Alias
- select name+''+Lastname As YourName , tel from [User]
2. การทำ Splash Screen แบบ Transparent บนพื้นวินโดวส์ ควรทำบน Panel เพราะถ้าทำบนฟอร์มเลย bg จะไม่หาย
แม้จะเซ็ต TransparentKey แล้วก็ตาม
3. การเข้าถึง Object ซึ่งแม้ว่าจะมีบางฟอร์มส่ง ค่า me มาให้มันแล้วก็ตามหากเรา Dim New จากฟอร์มอื่น
และใน function ที่เราต้องการใช้มีการอ้างถึงฟอร์มอื่นด้วย ต้องส่งชื่อฟอร์มอื่นให้มันด้วย เพราะว่ามันเป็ฯคนละ obj กัน
4. ในการแสดงผลของ Icon หากเป็น Mdi ฟอร์ม จะมีปัญหาคือเปิดครั้งแรก ภาพ Icon จะแสดงรูปไม่ถูกต้อง
ต้องไปใส่ ตอน Run Time ของ Event Load โดย Add ภาพเข้าไปใน Resource ก่อน
'--- Form Load
Me.Icon = My.Resource.IconName
5. กด ปุ่ม enter แล้วเลื่อน focus ไปที่ control ในฟอร์มแทนปุ่ม tab โดยการเซ็ต Form ให้ KeyPreview = True ก่อนแล้ว
ไปทำ Event KeyDown
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{TAB}")
End If
กับ อีกวิธีนึง โดยใช้ Form.GetNextControl ใช้กับ KeyCode เหมือนเดิม
If (e.KeyCode = Keys.Enter) Then
Dim ctl As Control
Do
ctl = Me.GetNextControl(Me.ActiveControl, forward:=True)
Loop Until (ctl.CanFocus)
ctl.Focus()
e.Handled = True '---- ไม่มีการส่งค่า e ไปที่ไหนอีก เพื่อจบการทำงาน
End If
6. การจับ Event KeyPress
if (IsNumeric(e.KeyChar)) OrElse (e.KeyChar = Chr(8)) Then
Else
e.Handled = True
End If
End Sub
ขอบคุณ
อาจารย์ สุเทพ
http://www.greatfriends.biz
ไม่มีความคิดเห็น:
แสดงความคิดเห็น