GetSetting(txtAppName, txtSection, txtKey, "No Setting Found")
Where the final parameter is a default value that is set if no setting is found
You can store the text in the database, as far as the graphics go, you can store the path to the graphic's file(s) in the database and load the picture(s) from the path(s)
Answer your question?
Ok, so Im presuming there will be a registry key that stores the value of the checkbox (mentioned above).
Search the registry for the key and change it through VB
Go to Start Bar Click [Start]
then [Settings]
then Click Mouse on [Network Conection] and a Window will open
Now you should be able to see an ICON under Dial-up, this is the settings for your ISP
right click on the ICON and a menu will appears
Click on [Properties] and a widow will open
at...
Private Sub SSTab1_MouseDown(Button As Integer, _
Shift As Integer, _
x As Single, _
y As Single)
Debug.Print "Current Tab " & SSTab1.Tab
End Sub
Private Sub SSTab1_MouseUp(Button As Integer, _...
Here's a pointless example...
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim arr() As String
arr = SplitLetters("a|b|c|d|e|f|g", "|")
For i = 0 To UBound(arr)
Me.Print arr(i)
Next i
End Sub
Public Function SplitLetters(strArr As String, Delim...
Try this..
Private Sub Command1_Click()
Dim Name As String
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True
Excel.WindowState = 2
Excel.Workbooks.Open "Drive\Path\Filename.xls"
Name = Excel.ActiveWorkbook.Sheets(1).Name
Set ExcelSheet =...
You will see, and as already explained above the dll is accessed by referencing procedures in a class file within the dll, have a look at the project and understand how it works and yes, you could add a procedure that simply displays a form with the code... frmWhatEver.show (After you add...
Open a new project, select active-x dll. Goto Project->Add Form and add a new form, your dll now has an interface.
Yes you can use controls in your dll, anything you like.
May I point you in the direction of a tutorial...
No you dont...
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
MakeSureDirectoryPathExists "c:\a\b\c\d\e\f\g\"
>Also, it draws a thin grey border around the frame (the background is white). Is there a way around that?
Comment out these lines like so (No Grey Line)...
Public Sub SetCtrlMobile(abc As Control) On Error Resume Next 'SetWindowLong abc.hwnd, GWL_STYLE, GetWindowLong(abc.hwnd, GWL_STYLE) Or...
No there's no mouseup event, if you dont move it far enough it moves back to the original position, for the grey border try playing around with or changing the WS_THICKFRAME constant
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.