Hi, i am not the best in VB, could someone please help me with this problem:
I want to drag and drop selected text from a textbox or listbox, into a combo box. Please Help :-)
Mikelo
Printable View
Hi, i am not the best in VB, could someone please help me with this problem:
I want to drag and drop selected text from a textbox or listbox, into a combo box. Please Help :-)
Mikelo
PLZ HELP!
Hey take it easy man!!!!
It were just
= 21 minutes after you posted your second post....Code:Dim d1 As Date, d2 As Date
Private Sub Form_Load()
d1 = "10-07-2000 01:36 PM"
d2 = "10-07-2000 01:57 PM"
MsgBox DateDiff("n", d1, d2)
End Sub
Patience my boy...
In the meantime, look at VbNet: http://www.mvps.org/vbnet/
You'll probably find something there.
Got it for ya!
Happy Now?Code:
Private Sub Combo1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For X = 0 To List1.ListCount - 1
If List1.Selected(X) = True Then
Combo1.AddItem List1.List(X)
End If
Next X
Combo1.Text = Combo1.List(0)
End Sub
Private Sub Form_Load()
List1.OLEDragMode = 1
Combo1.OLEDropMode = 1
'Populate the list box
For i = 0 To 20
List1.AddItem i
Next i
End Sub
Ok, thanx man!