Mouse Movement [ VB6 ]
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "IT-DarK"End Sub สร้าง CommandButton 1 อันและ TextBox 1 อัน ...แล้วใส่โค้ด ...Credit พี่ Unknown '~ ครับ
คำที่ค้นหา: moveme — พบ 6 รายการ
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "IT-DarK"End Sub สร้าง CommandButton 1 อันและ TextBox 1 อัน ...แล้วใส่โค้ด ...Credit พี่ Unknown '~ ครับ
สร้าง ListBox 1 อัน TextBox 1 อัน ใส่โค้ดListBox ตั้ง Style เป็น CheckBox Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam…
Oleg Komogortsev นักวิทยาศาสตร์คอมพิวเตอร์จากมหาวิทยาลัยแห่งเท็กซัสได้ค้นพบว่า มนุษย์เราจะมีวิธีในการกรอกลูกตาที่ไม่เหมือนกัน หรือไม่มีใครที่สามารถกรอกลูกตาด้วยได้เหมือนกันเลยแม้แต่คนเดียว ด้วยเงื่อนไขดังกล่าว…
http://i62.servimg.com/u/f62/12/82/64/77/antivi10.jpg Avira AntiVir Personal - FREE Antivirus is a reliable free antivirus solution, that constantly and rapidly scans your computer for malicious programs such as…
Private XX As IntegerPrivate YY As IntegerDim MoveMe As BooleanPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)MoveMe = TrueXX = XYY = YEnd SubPrivate Sub Form_MouseMove(Button…
หลังจากชมโฆษณาของ Windows Phone 7 กันไปแล้ว รู้สึกอยากมีไว้ใช้สักเครื่องไหมครับ? คราวนี้มาชมโฆษณาอีกชิ้นหนึ่งครับ คราวนี้เป็นของโซนี่ (Sony) ที่เพิ่งแนะนำอุปกรณ์ควบคุมการเล่นเกมส์แบบใหม่ที่ชื่อว่า PlayStaion Move…