Search:
Type: Posts; User: jpark
Search:
Search took 0.19 seconds.
-
Right mouse click on the TreeView control, and select properties menu.
Uncheck the HideSelection option.
This makes selected node dimmed after the treeview lost focus.
You can see which node has...
-
Check out this previous post
http://www.vb-world.net/ubb/Forum3/HTML/002679.html
For DAO, reference MS DAO 3.6 Object Library
For ADO, use MS Jet 4.0 OLE DB Provider
For dealing with...
-
Assuming that the sztemp contains 5 strings that are seperated by space.(e.g sztemp = "Hello Hutty, How are you?")
This'll add 5 row items to column 1
==========================================...
-
Goto project => References... and select
Microsoft Remote Data Object 2.0
Joon
-
ListView1.SelectedItem.ListSubItems(1).Text
Joon
-
Why don't we just post code without code tag?
It's hard to read and paste it as one long line.
I usally highlight code part by bold it, or you can post it like this
=============
code
here...
-
I've just got test out your code, and didn't get any error.
I use ADO and Access2000.(If Access97, then the provider should be Provider = Microsoft.Jet.OLEDB.3.51)
Option Explicit
Private cn...
-
Code
Public Function RemQMark(strTest As String) As String
'Test for illegal SQL characters (' or ") in company name
Dim intI As Integer, intL As Integer, intE As Integer
Dim strMsg...
-
Sorry if that didn't work out.
If you post your code, it'll be better for me to fix the problem.
However, try this example.
' You need 4 TextBoxes
Private flgInvalidInput As Boolean
-
You can make a flag to indicate validation of input.
'On the Form Module
private flagInvalidInput as Boolean
Private Sub txtWHCode_LostFocus()
'Code for getting Warehouse Name
-
What do you want to do?
maybe I can help you.
Joon
-
ListView1.SelectedItem.EnsureVisible
Joon
-
If it's ok try to use collection.
Dim testCol As New Collection
testCol.Add "1"
testCol.Add "2"
testCol.Add "3"
testCol.Add "4"
testCol.Add "5"
testCol.Add "6"
-
I have created an Active DLL, and added standard EXE project that references the Active DLL.
On my EXE project, I'm trying to create object, but it give me a "Type mismatch error"
Here's my code...
-
put ListView1.ListItems.Clear before adding ListItems.
Joon
-
Or Try this
Dim txtControl As Control
Dim lblControl As Control
For Each varControl In Form1.Controls
If TypeOf varControl Is TextBox Then
If (varControl.name <> "txtdate_terminated"...
-
Use a Check Box, and set Style to 1-Graphical
Private Sub Check1_Click()
If Check1.Value Then
Text1.Visible = False
Text2.Visible = False
Else
Text1.Visible = True
-
Lyla, You are right.
It dose not produce a correct answer.
Mark, If u had already been used my code (I don't think you are, though), I'm sorry that I suggested you the incorrect code.
Joon
-
Input must include "/". ex) "3/22/70"
otherwise, use MaskEdBox control to mask it.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim HowOld As String
If KeyAscii = vbKeyReturn Then...
-
Just for minimize all windows
Place a CommandButton onto Form1.
Copy and paste the following code into Form1's Code Window.
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk...
-
Sorry, that was just my code for moving focus to next control. :)
Should be this
If KeyAscii = 13 Then
KeyAscii = 0
' Run ur Code here
End If
Joon
-
Insert KeyAscii = 0 when Enter Key is detected.
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{TAB}"
End If
Joon
-
You can check null value with IsNull(rsCustomer("Addr2")), or use Text1 = rsCustomer("Addr2") & "" to avoid null error.
Joon
-
-
Private Sub txt1_KeyPress(KeyAscii As Integer)
' Allow only "(34), '(39), .(46), 0~9(48~57)
' I also allow "Backspace"(8)
If KeyAscii <> 34 And KeyAscii <> 39 And KeyAscii <> 46 _
...
-
Post part of ur code.
In one of my project, I have done same thing with no problem.
my code is like this
Private Sub txtCust_GotFocus(Index As Integer)
'** Change BackColor to white
...
-
Copy JHausmann's code and paste it, and try again.
Your changed code isn't exactly what JHausmann gave to you.
The single quote shouldn't be there.
Joon
-
mhayenga,
I don't think it's a great deal, but it still takes some of special characters, which ascii number is less than character "9"
If u want to allow only numbers in the textbox, u have to...
-
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 33 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 126) Then
KeyAscii = 0
End If
End Sub
HTH...
-
Clear mask first, then clear text.
MaskEdBox1.Mask = ""
MaskEdBox1 = ""
MaskEdBox1.Mask = "(###)###-####"
Joon
-
and somemore....
It's from MSDN for "!"(for VB)
The type-declaration character for Single is the exclamation point (!).
so, dim i as Single = dim i!
Or
-
Change ur variable data type, so that it can hold bigger number.
Check out this early post.
http://www.vb-world.net/ubb/Forum1/HTML/012219.html
order of storage size : ...
-
U get an "Run-time Error: 380", cuz the procedure trying to set txtViewTable.SelLength to negative value when it didn't find matched item in the list.
Try this
Private Sub listTables_Click()...
-
Private Function IsEmail(email As String) As Boolean
Dim firstAt As Integer
Dim firstDot As Integer
firstAt = InStr(1, email, "@")
firstDot = InStr(1, email, ".")
If firstAt > 0 And...
-
A form receives the focus only when all visible controls are disabled.
Try this example
Have 2 forms and on the form1 place a command button.
Private Sub Form_Click()
Form1.SetFocus
End...
-
Why do u have to make the sub for every textbox? Make one and call it for each textbox's GotFocus event.
Textbox control array example
On the Form, draw a TextBox, and name it.
(In this...
-
It would much easier if u created those textboxes as control array in first place.
Just place the code in one sub
Private Sub txtOrder_GotFocus(Index as Integer)
h& = GetFocus&(): sb& =...
-
Set ComboBox style to 2-Dropdown List, and add all array items to comboBox.
Private Sub Form_Load()
myArr(0) = "Setting"
myArr(1) = "Close"
myArr(2) = "Testing"
...
-
Try below code, and hope this is what u want.
On Form1, u have more than two, but let's say there's 2 buttons
Option Explicit
Private pvarButton As CommandButton
Property Get GetButton()...
-
Try below code, and hope this is what u want.
On Form1, u have more than two, but let's say there's 2 buttons
Option Explicit
Private pvarButton As CommandButton
Property Get GetButton()...
|
Click Here to Expand Forum to Full Width
|