คำที่ค้นหา: vb — พบ 100 รายการ
ขอความกรุณาช่วยเหลือผมด้วยครับ ผมกำลังทำโปรเจคเกี่ยวกับ VBA EXCEL อ่ะครับ ขอบคุณล่วงหน้าครับ ??? :-X
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 เป็นเมนูหลัก…
ขอโปงแกรม VB 2006 ตัวเต็มหน่อย ผมไม่มีจะเอาไปทำโปรSFใครมีขอหน่อยครับถ้าไห้ผมเดียวทำโปร SF เสร็จจมาแจกเว็บนี้คนแรกเลยใครให้ ผม ขอบคุญมากๆๆๆ
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
โดยปกติโปรแกรมส่วนใหญ่ติดตั้งใน Windows จะไปที่พาธ C:Program Files เป็นค่าดีฟอลต์ของ Windows แต่ถ้าพื้นที่ฮาร์ดดิสก์ (C) เริ่มมีน้อย เราสามารถเปลี่ยนตำแหน่งที่เก็บโปรแกรมที่จะติดตั้งได้ โดยให้ไปอยู่ที่ไดรฟ์อื่นๆ…
ไม่มีบอร์ดสำหรับ 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…
พอดีอยากเขียนโปรแกรม ส่ง ข้อความใน text ไปที่ e mail ตัวเองอ่ะครับ แต่ ทำม่ะเปน 5 5 5 รบกวนขอ code ด้วยนะครับ แต่ถ้าเป็น ไฟล์ .vbs แล้วยิ่งดีคับๆๆ พี่ admin คับ รบกวน รับแอดเมลด้วยนะครับ [email protected] ผมแอด…
ก่อนอื่น เปิดโปรแกรมขึ้นมาแล้ว ทำตามรูปเลย(ขออภัย ณ ที่นี่ ที่ไม่ได้ทำเป็นคลิป เพราะว่า ผมยังไ่ม่ได้โหลด โปรแกรมอัดคลิป :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…