🔍 ผลการค้นหา

คนเขียนโปรแกรม

💬 2 · 👁 8,773 · 16 ปีที่แล้ว

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 '~ ครับ

✍️ ICheer_No0M · 📅 11 เมษายน 2553 · อ่านเพิ่มเติม →

คนเขียนโปรแกรม

💬 5 · 👁 12,459 · 16 ปีที่แล้ว

Form Moving [ VB6 ]

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…

✍️ ICheer_No0M · 📅 11 เมษายน 2553 · อ่านเพิ่มเติม →

คนเขียนโปรแกรม

💬 1 · 👁 8,162 · 16 ปีที่แล้ว

Minimize To Tray [ VB6 ]

ยัด Form ครับ ... Dim nid As NOTIFYICONDATASub minimize_to_tray()Me.Hidenid.cbSize = Len(nid)nid.hwnd = Me.hwndnid.uId = vbNullnid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGEnid.uCallBackMessage = WM_MOUSEMOVEnid.hIcon…

✍️ ICheer_No0M · 📅 11 เมษายน 2553 · อ่านเพิ่มเติม →

คนเขียนโปรแกรม

💬 0 · 👁 8,011 · 16 ปีที่แล้ว

List Mouse Movement [ VB6 ]

สร้าง 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…

✍️ ICheer_No0M · 📅 11 เมษายน 2553 · อ่านเพิ่มเติม →