Search:
Type: Posts; User: sah1d
Search:
Search took 0.02 seconds.
-
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...
-
Let him one day come to the solution with the simplification or lazy mode of code.
-
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...
-
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
...
-
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
-
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...
-
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...
-
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...
-
Thanks for the advice, I'll keep it in mind.
-
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 &...
-
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.
...
-
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.
-
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
...
-
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...
-
Cheers
I use SaveSetting and GetSetting, for quick, you just have to always keep the same names.
-
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 =...
-
Thanks for providing another possibility, I'll try to make the adjustments.
-
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...
-
and if instead of putting a progress bar you put an animation that is in process.
https://www.google.com/search?q=loading+logo
-
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,...
-
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
-
probably it will work
Private Sub Timer1_Timer()
if timer1.tag <> cstr(winsock1.state) then
timer1.tag = cstr(winsock1.state)
Select Case Winsock1.State
...
-
in my case I don't put much code in a form, which by the way I already have an MDIForm active
-
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
...
-
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...
-
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...
-
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
-
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...
-
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...
-
Maybe it's the only explanation they gave him at school
-
hello, hope it helps you
All lines
null
Line by line
null
-
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...
-
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
...
-
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...
-
does not detect arrow keys
-
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...
-
Cheers and thanks for your time.
I tried your method and I don't detect the arrow keys
-
How can I go from one command to another with the arrow keys, if each command is inside a different picturebox.
185284
-
deleted file, soon I will upload an example code, thanks.
-
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...
|
Click Here to Expand Forum to Full Width
|