Visual-Basic

tips:ให้โปรแกรมเราถูก Run ครั้งแรกครั้งเดียว ห้าม Run ซ้ำ
ปกติใน vb6 จะใช้ App.Previnstance ถ้าใน vb.net ใช้

(VB.NET)
        Dim appName As String = Process.GetCurrentProcess.ProcessName
        Dim sameProcessTotal As Integer = Process.GetProcessesByName(appName).Length
         If sameProcessTotal > 1 Then
             MessageBox.Show("A previous instance of this application is already open!")
             Me.Close()
         End If
 ________________________________________________________________
(VB6)
    If App.PrevInstance = True Then
 MsgBox "โปรแกรมกำลังทำงานอยู่ ไม่สามารถเปิดพร้อมกันได้", vbOKOnly + vbExclamation, "Warning"
    End

edit @ 24 Mar 2008 17:13:00 by theera

SendKeys VB

posted on 24 Mar 2008 17:11 by theera in Visual-Basic
SendKeys "{BS}" 'Backspace
SendKeys "{DEL}" 'Delete
SendKeys "{ENTER}" 'Enter
SendKeys "{UP}" 'Up arrow
SendKeys "{CAPSLOCK}" 'Caps lock
SendKeys "+F2" 'Shift + F2
SendKeys "^C" 'Ctrl + C
SendKeys "%{F4}" 'Alt + F4
SendKeys "A" 'A

หาวันสิ้นเดือน

posted on 24 Mar 2008 17:04 by theera in Visual-Basic
    iDaysInMonth = CHOOSE(iMonth,31,28,31,30,31,30,31,31,30,31,30,31)
    IF iMonth = 2 AND ((iYear MOD 4) = 0) THEN
        IF  ((iYear MOD 100) > 0) OR ((iYear MOD 400) = 0) THEN
          iDaysInMonth = 29
        END IF
    END IF