ah. stupid. stupid. stupid.
Me.Height = Me.Height + ..... etc.
Thanks for the info.
Little questionn left. It there a way to slow down the sliding less then 1? I mean:
Private Sub Timer1_Timer()
Timer1.Interval = 1 '<-- Is there a way to make the scrolling more slow?
Me.height =...
Hi,
I am trying to slide, make the form bigger, with a button. but each time it freezes. can someone help me out?
This is one of the codes I tried.
Option Explicit
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Enabled =...
Thanks guys. Works fine.
One question remains. How do I make onlythe first letter Capital and the rest LCase?
Greetings J. Radjesh Klauke (Netherlands)
Hi,
How do I change the text in the ComboBox from Capital to non-capital?
The ComboBox is filled on Form_Load()
Do Until rs.EOF
Combo1.AddItem rs!TEST
rs.MoveNext
Loop
Greetings J. Radjesh Klauke (Netherlands)
Didn't work. But I think I gave to little info.
There are also 2 textboxes filled with data from the recordset.
This is the full code:
Private Sub Combo1_Click()
List1.Clear
Set rs = New Recordset
rs.Open "SELECT * FROM POSTCODE WHERE GEMEENTE = '" & Combo1.Text & "'", cn...
Hi,
Got a small problem (I hope)
Can Anyone tell me how to remove or hide double items from a listbox?
This is what I already have:
Private Sub Combo1_Click()
List1.Clear
Set rs = New Recordset
rs.Open "SELECT DISTINCT * FROM POSTCODE WHERE GEMEENTE = '" & Combo1.Text & "'", cn...
I always "hard-code" the App.Path. It's not the best way, but I never encountered problems 'cause my setup makes sure that the user cannot change the installationpath. If the user relocates the folder... then he's in trouble... ;)
Thanx Hypetia...
Perhaps i have to read more carefull the next time.. hihihi. Do you know where to find some kind of help or more samples working with SMXP?
Thanks for the reply Hypetia. The first thing i already used. It works fine.
I tried your code without any result. To bad.
this is the code I already had:
.Add "mnuExtra", "options", , "Change Skin" '(31)
.Add "options", "mSkin1", smiCheckBox, "Aisi", , , , smiChecked '(32)...
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.