RSS Feeds :: DEVPPL - Forums > Script-archive TOGETHER WE ARE THE BEST http://www.devppl.com/forum en-gb Tue, 17 Aug 2004 14:07:13 +0100 Sat, 21 Nov 2009 23:57:08 +0000 http://blogs.law.harvard.edu/tech/rss MSSTI v0.0.1 - (C) 2008 leviatan21 - http://www.mssti.com/ Copyright : (c) RSS Feeds :: DEVPPL - Tue, 17 Aug 2004 14:07:13 +0100 webmaster@devppl.com (DEVPPL) RSS Feeds :: DEVPPL - Forums > Script-archive http://www.devppl.com/forum/styles/DEVPPL/imageset/site_logo.gif http://www.devppl.com/forum 60 Make you're program start when comp starts (vb08) http://www.devppl.com/forum/./viewtopic.php?p=53995#p53995 Make SURE you put
Code:
Imports Microsoft.Win32
at the VERY top of the project
Pic:Click the picture
Image

IF you want this to write when the project starts, double click the form and put the following code there:
Code:
Private Sub setregistryvalue()       
'Add the executable's path against the application's name.        'Just change the key between (), and thats it.       
Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", _                         
Application.ProductName, _                         
Application.ExecutablePath)   
End Sub
...

Statistics : Posted by n00bl3z • on Thu Sep 24, 2009 10:17 pm • Replies 0 • Views 51

]]> Make SURE you put
Code:
Imports Microsoft.Win32
at the VERY top of the project
Pic:Click the picture
Image

IF you want this to write when the project starts, double click the form and put the following code there:
Code:
Private Sub setregistryvalue()       
'Add the executable's path against the application's name.        'Just change the key between (), and thats it.       
Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", _                         
Application.ProductName, _                         
Application.ExecutablePath)   
End Sub
...]]> 2009-09-24T22:17:20+01:00 http://www.devppl.com/forum/./viewtopic.php?p=53995#p53995 pop up a box if the x button is clicked http://www.devppl.com/forum/./viewtopic.php?p=45817#p45817 Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    ' Only prompt if the user hits X
    If UnloadMode = 0 Then
        If Msgbox("Are you sure you want to quit?", vbYesNo Or vbQuestion) = vbNo Then Cancel = True
    End If

End Sub

Statistics : Posted by chubzyko • on Wed Aug 27, 2008 6:46 pm • Replies 0 • Views 477

]]> Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    ' Only prompt if the user hits X
    If UnloadMode = 0 Then
        If Msgbox("Are you sure you want to quit?", vbYesNo Or vbQuestion) = vbNo Then Cancel = True
    End If

End Sub
]]> 2008-08-27T18:46:28+01:00 http://www.devppl.com/forum/./viewtopic.php?p=45817#p45817 disable the x button in a form http://www.devppl.com/forum/./viewtopic.php?p=45816#p45816 Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    If UnloadMode = 0 Then Cancel = True

End Sub

Statistics : Posted by chubzyko • on Wed Aug 27, 2008 6:45 pm • Replies 0 • Views 352

]]> Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    If UnloadMode = 0 Then Cancel = True

End Sub
]]> 2008-08-27T18:45:06+01:00 http://www.devppl.com/forum/./viewtopic.php?p=45816#p45816 how to launch or run a program in a button click http://www.devppl.com/forum/./viewtopic.php?p=45815#p45815 Code:
Private Sub cmd_button1_Click()
Call Shell ("C:\WINDOWS\system32\notepad.exe", vbNormalFocus)
End Sub

Statistics : Posted by chubzyko • on Wed Aug 27, 2008 6:43 pm • Replies 0 • Views 325

]]> Code:
Private Sub cmd_button1_Click()
Call Shell ("C:\WINDOWS\system32\notepad.exe", vbNormalFocus)
End Sub
]]> 2008-08-27T18:43:31+01:00 http://www.devppl.com/forum/./viewtopic.php?p=45815#p45815 type numbers only on a txtbox, no letters allowed http://www.devppl.com/forum/./viewtopic.php?p=45814#p45814 Code:
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii > Asc("9") Then
KeyAscii = 0
End If

End Sub

Statistics : Posted by chubzyko • on Wed Aug 27, 2008 6:41 pm • Replies 0 • Views 311

]]> Code:
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii > Asc("9") Then
KeyAscii = 0
End If

End Sub
]]> 2008-08-27T18:41:44+01:00 http://www.devppl.com/forum/./viewtopic.php?p=45814#p45814 Display the time in a label. http://www.devppl.com/forum/./viewtopic.php?p=45813#p45813 Label1.Caption = Time
End Sub

Statistics : Posted by chubzyko • on Wed Aug 27, 2008 6:40 pm • Replies 0 • Views 325

]]> Label1.Caption = Time
End Sub]]> 2008-08-27T18:40:20+01:00 http://www.devppl.com/forum/./viewtopic.php?p=45813#p45813 open My Documents in explorer window when a button is click http://www.devppl.com/forum/./viewtopic.php?p=45812#p45812

Code:
lngReturnValue = shell("explorer.exe ""C:\Documents and Settings\Administrator\My Documents""", vbNormalfocus)

Statistics : Posted by chubzyko • on Wed Aug 27, 2008 6:38 pm • Replies 0 • Views 374

]]>

Code:
lngReturnValue = shell("explorer.exe ""C:\Documents and Settings\Administrator\My Documents""", vbNormalfocus)
]]> 2008-08-27T18:38:18+01:00 http://www.devppl.com/forum/./viewtopic.php?p=45812#p45812 http://www.devppl.com/forum/./viewtopic.php?p=14930#p14930 Statistics : Posted by dafunkymunky • on Fri Jul 21, 2006 7:34 am • Replies 4 • Views 3830

]]> 2006-07-23T07:21:59+01:00 http://www.devppl.com/forum/./viewtopic.php?p=14930#p14930 Scroll Bar ActiveX control http://www.devppl.com/forum/./viewtopic.php?p=8862#p8862
The Source code:: http://rapidshare.de/files/5126612/Scroll_Bar_Source.zip.html
The ActiveX control :: http://rapidshare.de/files/5126661/Scroll_Bar_ActiveX_Control.zip.html

Statistics : Posted by dafunkymunky • on Thu Sep 15, 2005 3:03 pm • Replies 0 • Views 2035

]]>
The Source code:: http://rapidshare.de/files/5126612/Scroll_Bar_Source.zip.html
The ActiveX control :: http://rapidshare.de/files/5126661/Scroll_Bar_ActiveX_Control.zip.html]]> 2005-09-15T15:03:10+01:00 http://www.devppl.com/forum/./viewtopic.php?p=8862#p8862