Search:

Type: Posts; User: sah1d

Search: Search took 0.02 seconds.

  1. Replies
    1
    Views
    330

    Help to slide more fluently

    I leave the code, so that you can see if you can improve the sliding, improve it in general or maybe do a user control, I will appreciate your help, thanks in advance.

    the bigger the object, the...
  2. Re: How can I make the control to print a number of lines of a list1?

    Let him one day come to the solution with the simplification or lazy mode of code.
  3. Re: How can I make the control to print a number of lines of a list1?

    an apology if pretending to help is doing the job, but as you will notice it continues with the same thing, even when the MOD, the List1.List(i) and the PrintHeader function were indicated.

    What...
  4. Re: How can I make the control to print a number of lines of a list1?

    Dim i As Integer
    For i = 0 To List1.ListCount - 1
    Printer.Print List1.List(i)
    If (i Mod 25)=0 Then
    Printer.NewPage
    'PrintHeader
    end IF
    ...
  5. Re: How can I make the control to print a number of lines of a list1?

    I hope my lazy method works for you


    Dim i As Integer
    For i = 0 To List1.ListCount - 1
    Printer.Print List1.List(i)
    If (i Mod 25)=0 Then Printer.NewPage
    Next i
  6. Replies
    6
    Views
    991

    Re: LOOPING dir and sub dir

    Greetings, I share my lazy form

    Add to the project a CommandButton, ListBox, DirListBox and a FileListBox


    Private Sub Command1_Click()
    List1.Clear
    Dir1.Tag = App.Path
    Dir1.Path...
  7. Re: What is the advantage or disadvantage

    First of all, thank you all for your comments.

    and the main question was if there was a difference in declaring the variable at the beginning or after, but after reading them I see that there is...
  8. [RESOLVED] What is the advantage or disadvantage

    Hello everyone, I would like you to help me clarify what is the advantage or disadvantage of using the following functions.


    Option Explicit

    Private Sub Check1_Click()
    Dim Tempo As...
  9. Replies
    35
    Views
    2,527

    Re: pass from list1 to text1,text2,text3,,,,,,

    Thanks for the advice, I'll keep it in mind.
  10. Replies
    35
    Views
    2,527

    Re: pass from list1 to text1,text2,text3,,,,,,

    Private Sub Command1_Click()
    Dim Tempo As Integer
    For Tempo = 0 To Text1.Count - 1
    If Text1(Tempo).Text <> "" Then Exit For
    End If
    If Tempo < Text1.Count Then
    Open App.Path &...
  11. Replies
    9
    Views
    2,761

    Re: understanding cracking app

    I recommend the use of polymorphism, or a function that helps you to validate several options of the program so that it would have a different behavior when using it if it were modified.
    ...
  12. Replies
    5
    Views
    437

    Re: Add the MultiLine property

    Thanks for your time

    It was the original idea to have both, I was hoping to be able to simplify into one.

    I will continue with both, as soon as another solution can come out.
  13. Replies
    5
    Views
    437

    Re: Add the MultiLine property

    Thank you, but when making these modifications, I get an error in the following line:


    Public Property Let MultiLine(ByVal New_MultiLine as Boolean)
    Text1.MultiLine() = New_MultiLine
    ...
  14. Replies
    5
    Views
    437

    Add the MultiLine property

    Greetings, I would like to know if it is possible to add the multiline property

    185827

    The user control
    185828
    It would generate an error on line 112 that I commented (also add on lines 186...
  15. Replies
    5
    Views
    846

    Re: check application is installed or not

    Cheers

    I use SaveSetting and GetSetting, for quick, you just have to always keep the same names.
  16. Replies
    13
    Views
    1,265

    Re: [RESOLVED] How to check if...

    Greetings, I use the following code for some array control.

    Just add a Label1(0) and a command1


    Private Function Sort()
    Dim Index as Integer
    Index = 1
    Label1(0).Tag =...
  17. Replies
    14
    Views
    1,595

    Re: Help in top

    Thanks for providing another possibility, I'll try to make the adjustments.
  18. Replies
    14
    Views
    1,595

    Re: Help in top

    with the tabulations within each form it has not given any problem, because it always happens in the one that has the focus without the need to move from one form to another with the tabulator, and...
  19. Replies
    24
    Views
    3,024

    Re: [RESOLVED] Progress during compact database?

    and if instead of putting a progress bar you put an animation that is in process.

    https://www.google.com/search?q=loading+logo
  20. Replies
    14
    Views
    1,595

    Re: Help in top

    Thank you very much for the information and your time, it is exactly as I required, I appreciate it.

    the final code

    MoveWindow Form2.hWnd, 0, 0, Form2.Width / Screen.TwipsPerPixelX,...
  21. Replies
    14
    Views
    1,595

    Re: Help in top

    I reuse the forms and I don't want to put more code, being able to pass some parameters and load them into another form inside the picturebox, without mixing code in the main form.

    185610
  22. Replies
    5
    Views
    4,201

    Re: Winsock state not changing

    probably it will work


    Private Sub Timer1_Timer()
    if timer1.tag <> cstr(winsock1.state) then
    timer1.tag = cstr(winsock1.state)
    Select Case Winsock1.State
    ...
  23. Replies
    14
    Views
    1,595

    Re: Help in top

    in my case I don't put much code in a form, which by the way I already have an MDIForm active
  24. Replies
    14
    Views
    1,595

    [RESOLVED] Help in top

    How can I display form2.top = 0 inside picturebox?

    in form1

    Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
    ...
  25. Re: split string help only few extracting

    maybe


    Dim s As StriNg
    Dim r As StrinG
    s = "@dE%GetHost#@¥€¥€%@harris fna¥€%@men of war¥€%@Text1.Text¥€%@3/8¥€%@e2d1ef98-61d9@dE%GetHost#@¥€¥€%@tamina¥€%@men of...
  26. Replies
    34
    Views
    3,669

    Re: Vb6: split text error out of memory

    the code you show is not the same as this


    Private Sub Command1_Click()
    If Text1.Tag = "" Then
    Text1.Text = ""
    Text1.Tag = SourcetTextBox.Text + vbCrLf
    End if
    If...
  27. Replies
    22
    Views
    3,292

    Re: Some General Networking Questions

    Personally, they work very well for me.

    I recommend you put a Label on the server.


    Label1.Caption = Winsock1.LocalIP

    to know the IP to which the client will connect
  28. Replies
    34
    Views
    3,669

    Re: Vb6: split text error out of memory

    with a few minor modifications it could work for you


    Private Sub Command1_Click()
    If Text1.Tag = "" Then
    Text1.Text = ""
    Text1.Tag = SourcetTextBox.Text + vbCrLf
    End...
  29. Thread: how to fix this

    by sah1d
    Replies
    4
    Views
    737

    Re: how to fix this

    maybe


    dim i as Integer
    For i = 0 To List3.ListCount - 1
    If Dir(App.path & "\downloaded\" & List3.List(i)) <> "" Then
    Form1.Caption = "File exists"
    Else
    'if it dont...
  30. Replies
    20
    Views
    1,866

    Re: Vb6: richtextbox read line by line on click

    Maybe it's the only explanation they gave him at school
  31. Replies
    20
    Views
    1,866

    Re: Vb6: richtextbox read line by line on click

    hello, hope it helps you

    All lines

    null

    Line by line

    null
  32. Replies
    3
    Views
    644

    Re: get this string from html

    another way


    Private Function ExtractString(OriginString As String, FindString As String) As String
    Dim vTempo As Long
    vTempo = InStr(OriginString, FindString)
    If vTempo > 0 Then
    For...
  33. Replies
    10
    Views
    1,187

    Re: help on command buttons

    thank you very much Phill W. with that information and a little more code the problem was solved.


    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    ...
  34. Replies
    10
    Views
    1,187

    Re: help on command buttons

    if I do the same thing with a text box outside the picturebox it would be


    Private Sub Text1_KeyDown(Index as Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyRight Or...
  35. Replies
    10
    Views
    1,187

    Re: help on command buttons

    does not detect arrow keys
  36. Replies
    10
    Views
    1,187

    Re: help on command buttons

    that's correct, but I want to make the arrow keys effect of


    MsgBox "Hello Worl", vbYesNoCancel

    to move between the button commands I need to detect the arrows and then perform the SetFocus...
  37. Replies
    10
    Views
    1,187

    Re: help on command buttons

    Cheers and thanks for your time.

    I tried your method and I don't detect the arrow keys
  38. Replies
    10
    Views
    1,187

    [RESOLVED] help on command buttons

    How can I go from one command to another with the arrow keys, if each command is inside a different picturebox.

    185284
  39. Replies
    3
    Views
    602

    Re: hello everyone, please help with MsgBoxX

    deleted file, soon I will upload an example code, thanks.
  40. Replies
    3
    Views
    602

    hello everyone, please help with MsgBoxX

    Years ago I made a program to create msgbox dialogs, over time I needed
    more features and created a form and module called MsgBoxX, and I would
    like to generate it in an OCX or DLL.

    I attach the...
Results 1 to 40 of 40



Click Here to Expand Forum to Full Width