Search:

Type: Posts; User: PGBSoft

Page 1 of 5 1 2 3 4

Search: Search took 0.02 seconds.

  1. Replies
    17
    Views
    595

    Re: Which application has the file open ?

    Just a quick reply.
    Probably this might help.
  2. Re: API code to change button color? vb6 themed xp controls changing background color

    As an option you may use a custom button control, There are many user controls.
  3. Replies
    4
    Views
    287

    Re: Missing Form_Load, but still works!

    Please read this
  4. Replies
    7
    Views
    379

    Re: Problem when maximize form

    OR you may use



    Option Explicit
    Const CHIUDI_Margin_Right As Integer = ??
    Const CHIUDI_Margin_Bottom As Integer = ??

    Private Sub Form_Resize()
    CHIUDI.Move ScaleWidth - CHIUDI.Width -...
  5. Replies
    1
    Views
    231

    Re: webbrowser innerhtml remove code

    Hi,

    You may try as follows,



    Dim HTDoc As Object
    Set HTDoc = WebBrowser1.Document
    WebBrowser1.Document.body.innerHTML = Replace(WebBrowser1.Document.body.innerHTML, RichTextBox1.Text, "",...
  6. Re: mouse API code please? (caputuring right mouse click?) thanks!

    You may need to think about subclassing. Refer the example of a textbox which overrides its default context menu with a custom one. Hope the idea will help to adopt your own.
  7. Replies
    6
    Views
    382

    Re: Form Icon and X button

    Set BorderStyle to (Fixed Dialog) and set the Icon property to (None). You can find API ways to disable the Close Button.
  8. Replies
    3
    Views
    208

    Re: keyboard/hotkey macro assistant

    Hi,

    Here is a good free tool that does the same you need. I think it uses a specific keyboard hook. Just have a look to get an idea.
  9. Re: Is there an easier way to download a folders contents from a website?

    Hi,

    Just an idea.
    How about maintaining zip files, then download and extract.
  10. Replies
    6
    Views
    310

    Re: Windows 10 shutdown

    Yes, exactly, thanks.
  11. Replies
    6
    Views
    310

    Re: Windows 10 shutdown

    Check my Switch Off utility.
  12. Replies
    8
    Views
    564

    Re: Problem sending text to Web Browser

    Hello,

    Try as follows.



    WebBrowser1.Document.All("mtitle").InnerText = Title.Text
    WebBrowser1.Document.All("mtex").InnerText = Description.Text
    WebBrowser1.Document.All("perma").InnerText...
  13. Replies
    4
    Views
    366

    Re: Filtering boxes using Ubound

    Not sure what you exactly need, but see below.

    V1


    Option Explicit

    Private Sub Command1_Click()
    Debug.Print GetCount(vbRed, "test")
    'Text2.Text = GetCount(vbRed, "test")
  14. Re: Setting up SQL Server on a remote server

    I suspect it is an issue with the firewall configuration. Have you set an Inbound Rule with the port?
  15. Re: Need a bit of help with a Datagrid and timer in VB6

    Probably you may use a counter comparing with the row count of the grid and reset it.
  16. Re: Problem setting focus after returning from external app

    This is just a suggestion.

    In you Post#1: just try with ShellExecute API approach.
  17. Replies
    3
    Views
    294

    Re: Remove Non-Empty Directory?

    There are ways...
    One approach is as follows and you may modify it as you wish...



    Option Explicit

    Private FSO As Object

    Private Sub Form_Load()
  18. Re: how to screen capture with mouse cursor and with click right and left

    Hello,

    The specialty of the sample in Post #4 is it does display the mouse icon on the screen capture, which might OP basically needs.

    As far as I understand, the mouse pointer and the on...
  19. Re: how to screen capture with mouse cursor and with click right and left

    http://forums.codeguru.com/attachment.php?attachmentid=4933&d=1070618402
  20. Replies
    9
    Views
    425

    Re: Uppecase textbox

    You may also try with Text_Change event to work even with Copy-Paste entries.



    Private Sub Text1_Change()
    Text1.Text = UCase$(Text1.Text)
    Text1.SelStart = Len(Text1.Text)
    End Sub
  21. Re: CheckBoxCombo 1.4 (A professional, effective and ready-to-use Multi-select ComboB

    Revision update 1.4.1 Released (24-11-2019)


    Fixed a minor bug in list search.

    Download the latest here.
  22. Re: CheckBoxCombo 1.4 (A professional, effective and ready-to-use Multi-select ComboB

    Thanks Hosam. That issue had been reported and I have already made a fix. I will update the CodeBank.
  23. Replies
    15
    Views
    678

    Re: two factor authentication

    If you can connect to GSM network may be through a USB modem, you can send text messages via AT commands.
  24. Re: TTS (Text-To-Speech) problem with text position

    Not sure what you exactly need, but you may try with SelStart property of the TextBox.



    Option Explicit
    Private startPos As Integer
    Private sp As New SpeechLib.SpVoice

    Private Sub...
  25. Replies
    3
    Views
    317

    Re: Get specifc text from a given string

    Hello,

    You may also try as



    Private Function GetRequired(txt As String, ipt As Integer) As String

    Dim s() As String, a() As String
  26. Replies
    14
    Views
    745

    Re: Moving a Control on the Form

    Hello Code Dummy,

    Not sure, but Is this what you say with regards to your usercontrol? But I have no problem in getting the ending position of the usercontrol together with the idea of refreshing...
  27. Replies
    14
    Views
    745

    Re: Moving a Control on the Form

    How about a simple approach..



    Option Explicit

    Dim MOUSEdownX As Integer
    Dim MOUSEdownY As Integer

    Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y...
  28. Re: form shared in two different executables (projects)

    If you actually intend sharing your form with two or more separate executable projects with code reuse and all, the best would be to include your form in a separate ActiveX DLL and create public...
  29. Replies
    3
    Views
    409

    Re: SQL server Identity coumn

    You can set the Identity column in SSMS in the table design. See the below screenshot.

    167423
  30. Replies
    7
    Views
    461

    Re: How to use a Checkbox

    You may also try with the MouseUP event of the CheckBox. (And may be with KeyUp event also.)



    Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ...
  31. Replies
    2
    Views
    308

    Re: 'SHBrowseForFolder' without dialog box.

    Lompin,

    I am not clear what your exact need is?

    However, I would suggest,

    1. First you use BrowseForFolder dialog to select a path and save it on your computer.
    2. Next time, you can use...
  32. Replies
    7
    Views
    424

    Re: Open form within another.

    You may also use SetParent API to accomplish this.

    * In a new project, just add 2 forms (Form1, Form2) and command button (Command1) on Form1.
    * Put the following code in Form1.



    Option...
  33. Re: Using a Collection isn't doing what I would have expected

    Just a quick reply for you to check...



    For n = 1 To UBound(CellsAroundTarget)
    If n <> 5 Then 'cell 5 is the target cell
    If CellsAroundTarget(n) <= TotalCells Then
    For n2 = 0...
  34. Re: mute the sound of webbrowser1 when form click or Navigate

    check below.

    http://vb6.info/internet/vb6-stop-web-browser-click-sound/
  35. Re: Using a Collection isn't doing what I would have expected

    The reason why is you have not handled the error properly. See the below.




    Private Function Alive(CellNumber As Integer) As Boolean

    On Error GoTo err
    If...
  36. Re: Concatenating Connection String and FilePath

    If you use option buttons as a control array with each Caption pointing to your model, something like below may help.



    Option Explicit

    Private Sub Option1_Click(Index As Integer)
    ...
  37. Replies
    5
    Views
    464

    Re: List Box question

    check also...



    Option Explicit

    Private Sub Command1_Click()

    Dim sTmp, st
  38. Replies
    11
    Views
    3,806

    Re: sorting a listbox runtime

    The reason why is you are inserting list items at specific indexes, which overrides the sorting behavior of the listbox.

    Instead of



    For Each objField In rs.Fields
    ListBox2.AddItem...
  39. Re: Indicate as "selected" the item in a listbox corresponding to a value in a text b

    Option Explicit

    Private Sub Form_Load()

    Dim i As Integer

    For i = 1 To 10
    List1.AddItem CStr(i)
    Next
  40. Re: Running VB Project with WebBrowser control

    Try to create it dynamically (Just put the following in a form for testing).


    Option Explicit

    Private wbctrl As VBControlExtender

    Private Sub Form_Resize()

    On Error Resume Next
Results 1 to 40 of 192
Page 1 of 5 1 2 3 4



Click Here to Expand Forum to Full Width