dcsimg
CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com

Search:

Type: Posts; User: MKSa

Page 1 of 44 1 2 3 4

Search: Search took 0.05 seconds.

  1. Replies
    2
    Views
    691

    Private Declare Function ShellExecute Lib...

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory...
  2. Replies
    3
    Views
    1,397

    Private Declare Function GetSystemDirectory Lib...

    Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal uSize As Long) As Long
    Private Sub Command1_Click()
    Dim strDir As String,...
  3. Replies
    4
    Views
    1,490

    Re: Form1 only always on top on Form2, How to do...

    'Add to form1 the following code.

    Const HWND_TOPMOST = -1
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_NOACTIVATE = &H10
    Const SWP_SHOWWINDOW = &H40
    Private Declare Sub...
  4. Replies
    7
    Views
    1,813

    'Try the following code: Private Sub...

    'Try the following code:
    Private Sub Command1_Click()
    Dim Conn As New ADODB.Connection
    Conn.Open "Provider=MSDASQL;" & "Driver={Microsoft Access Driver (*.mdb)};" & _
    ...
  5. Replies
    2
    Views
    984

    'Add the Microsoft Script Control to your form...

    'Add the Microsoft Script Control to your form and use the Eval function.
    private Sub Command1_Click()
    Debug.print ScriptControl1.Eval(Text1)
    End Sub
  6. Thread: Move method

    by MKSa
    Replies
    6
    Views
    869

    TextBox 25 is an illegal name for a textbox. ...

    TextBox 25 is an illegal name for a textbox. There should not be a space between TextBox and 25. Try:
    TextBox25.Move 2800, 700
    TextBox26.Move 3000,700
  7. Replies
    5
    Views
    949

    Try setting the sound volume to zero in your...

    Try setting the sound volume to zero in your application. I think the API calls below should help.

    Private Declare Function auxSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume...
  8. Replies
    5
    Views
    949

    Go to Control panel and choose Sounds. After the...

    Go to Control panel and choose Sounds. After the Sounds dialog appears, select from the listbox under Events the Default sound. Now from the combobox below Name choose (none).
    If you want to...
  9. Thread: App.Path issue

    by MKSa
    Replies
    5
    Views
    1,592

    'Add to a form a Commondialog box and a...

    'Add to a form a Commondialog box and a commandbutton. Compile project and make an executable.
    'Add a file called Myfile.txt to the folder with the just created executable.

    Option Explicit
    'In...
  10. Use the AbsolutePosition property of the...

    Use the AbsolutePosition property of the recordset object.
  11. Thread: Bolding text

    by MKSa
    Replies
    7
    Views
    1,196

    'The following code find all occurrences of a...

    'The following code find all occurrences of a string in a RichBox and make them Bold with a Blue color.
    Private Sub Command1_Click()
    Dim BoldString As String, pos As Long
    BoldString = "Test...
  12. Thread: Bolding text

    by MKSa
    Replies
    7
    Views
    1,196

    'The following code will change the color and...

    'The following code will change the color and boldness of the selected string while entering text in the RichBox.
    Dim start As Long, BoldString As String
    Private Sub Form_Load()
    start = 1
    ...
  13. Replies
    8
    Views
    1,559

    Check your private messages.

    Check your private messages.
  14. Re: Printing Reports Created in Access2000 from vb?

    Yes.

    'Add reference to Microsoft Access 9.0 Object Library
    Private Sub Command1_Click()
    Dim acc As Access.Application, dbName As String, ReportName As String
    'dbName is the database with...
  15. Replies
    1
    Views
    617

    'Add reference to Microsoft DAO Object Library...

    'Add reference to Microsoft DAO Object Library
    Private Sub Command1_Click()
    Dim db As Database, dbName As String, Pass As String
    'Change dbName and Pass to the whatever you want
    dbName =...
  16. Replies
    8
    Views
    5,409

    Did you check if any of the checked Components...

    Did you check if any of the checked Components has Missing next to it?
  17. Replies
    10
    Views
    1,614

    Try if the following code: Private Sub...

    Try if the following code:

    Private Sub Command1_Click()
    Dim wrd As Word.Application, doc As Word.Document
    On Error Resume Next
    Set wrd = GetObject(, "Word.Application")
    If Err <> 0...
  18. Replies
    8
    Views
    5,409

    What are you're project references? How you...

    What are you're project references? How you dimension maindatabase?
  19. Replies
    8
    Views
    5,409

    If you are opening an Access database then change...

    If you are opening an Access database then change ";pwd=*******" to
    "MS Access;pwd=*******"
    if you're opening a different database type then replace MS Access with the appropriate specifier. For...
  20. Replies
    13
    Views
    21,577

    Private Const BM_SETSTATE = &HF3 Private Const...

    Private Const BM_SETSTATE = &HF3
    Private Const WM_LBUTTONDOWN = &H201
    Private Const WM_LBUTTONUP = &H202

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd...
  21. Replies
    3
    Views
    747

    The following code should help. 'Add reference...

    The following code should help.
    'Add reference to Microsoft Word Object Library.
    Private Sub Command1_Click()
    Dim wrd As Word.Application, doc As Word.Document
    On Error Resume Next
    Set...
  22. Replies
    4
    Views
    733

    'The following code should delete all selected...

    'The following code should delete all selected items from ListB
    Private Sub Command1_Click()
    Dim ind As Integer
    ind = 0
    Do While ListB.SelCount > 0
    If ListB.Selected(ind) Then
    ...
  23. Replies
    8
    Views
    1,559

    Try something like this: Set db =...

    Try something like this:
    Set db = OpenDatabase("C:\....\database.mdb", False, True, "MS Access;pwd=password")
  24. Replies
    2
    Views
    702

    'The Code below should get you started. ...

    'The Code below should get you started.

    Private WithEvents DataCtrl As Data
    Private Sub Form_Load()
    Set DataCtrl = Me.Controls.Add("vb.data", "Data1")
    With DataCtrl
    .Visible = True...
  25. Thread: inputbox problem

    by MKSa
    Replies
    4
    Views
    1,078

    Private Sub Command1_Click() 'Using StrPtr of...

    Private Sub Command1_Click()
    'Using StrPtr of the returned string should give you what you want.
    Dim Answer As String
    Answer = InputBox("Enter something:")
    If StrPtr(Answer) = 0 Then
    ...
Results 1 to 25 of 1090
Page 1 of 44 1 2 3 4


Windows Mobile Development Center


Click Here to Expand Forum to Full Width




On-Demand Webinars (sponsored)