คำที่ค้นหา: vb6 — พบ 28 รายการ
oยากทราบ soure code s e n d m a il อ่ะครับ ขoJ vB6 อ่ะครับพิมพ์ข้อความใน Textbox กด button ส่งข้อความใน Textboxมาที่ email เราอ่ะครับ
เปิด Form ขึ้นมา ขั้นแรกกด Ctrl + E จะขึ้น Dialog มาให้ใส่รายละเอียดที่ต้องการนะครับ ... http://img12.imageshack.us/img12/8800/94943544.png บรรทัดแรกก็ให้ใส่รายละเอียดลงไปเช่น File เป็นเมนูหลัก…
Private Sub Form_Load() Dim itd As Integer For itd = 0 To List1.ListCount - 1 List1.Selected(itd) = True Next itd End Sub ListBox แบบ Check ถ้ารันมามันจะไม่ Checked ใช่ไหมครับ ลองเอาโค้ดนี้ไปใส่ดูครับผม…
หนูได้เรียนเขียนโปรแกรม GUI ค่ะอาจารย์ให้โปรแกรม VB 6 สอน แล้วอาจารย์ก็ให้การบ้านบ้านหนูไม่มี VB อาจารย์ก็ให้โปรแกรมมาติดตั้งเองที่บ้านแต่มันลงไม่ได้ค่ะ กด setup ที่เป็นรูปเลข8นอนแล้วก็กด next…
หัวข้อนี้ได้ถูกย้ายไปบอร์ด ตอบถามปัญหาคอม . http://www.it4x.com/forum/index.php?topic=5527.0
ไม่มีบอร์ดสำหรับ VB6 เอาตรงนี้ละหุหุ อันนี้จากประสบการณ์การลอกเลียนแบบเป็นคลิปเช่นเคยตอนที่ 1 ออกแบบหน้าตาก่อน (เนียนๆนะ) http://www.screencast.com/users/stopman/folders/Default/media/137b328c-719b-4bbd-879b-6218680ce632…
Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "โปรแกรมกำลังทำงานอยู่ !!! ไม่สามารถเปิดพร้อมกันได้", vbOKOnly + vbExclamation, "Error !" End End IfEnd Sub Credit : IT-DARK.ORG
Option ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As…
สร้าง CheckBox 1 ตั้งชื่อว่า ITD นะครับ ...แล้วยัดโค้ด ... Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40Private…
ก่อนอื่น เปิดโปรแกรมขึ้นมาแล้ว ทำตามรูปเลย(ขออภัย ณ ที่นี่ ที่ไม่ได้ทำเป็นคลิป เพราะว่า ผมยังไ่ม่ได้โหลด โปรแกรมอัดคลิป :P http://image.ohozaa.com/i6/zgvb6.jpg
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 '~ ครับ
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…
Form ... Private Sub Form_Load()ActiveTransparency Me, True, False, 200, &H0&'ActiveTransparency , True, False, , End Sub Module ... Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd…
Dim Startup_key As String Startup_key = "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun" Dim Reg As Object Set Reg = CreateObject("wscript.shell") Reg.RegWrite Startup_key & App.EXEName, App.Path & "" &…
ยัด 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…
สร้าง 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…
Option Explicit Private Declare Function SendMessageByNum Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, ByVal _ wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const LB_SETHORIZONTALEXTENT =…
การทำเครื่องเล่นเพลง หรือ วิทยุ ออนไลน์ใน VB6 ดูไม่ชัดก็โหลดเลยจร้า >> http://www.mediafire.com/?g4zyjyy1klw
http://www.screencast.com/t/MzhiMzcx ??? ???
หัวข้อนี้ได้ถูกย้ายไปบอร์ด Visual Basic (VB6) . http://www.it4x.com/forum/index.php?topic=3978.0