|
Hello EveryBody
I have used an comboBox in my application and on Edit Cmd i have DropDown list of items for user to select.But now the problem is that When i Click Exit Cmd,the form does not get closed on Single click ,I have to Click CmdExit 2 times to close form.But i wanna close the form on a single click .Kindly help me for the same
Thanks in advance
Rizwan
|
|
|
|
|
can we see the code ?
Vuyiswa Maseko,
Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers."
C#/VB.NET/ASP.NET/SQL7/2000/2005/2008
http://www.vuyiswamaseko.somee.com
vuyiswa@its.co.za
http://www.itsabacus.co.za/itsabacus/
|
|
|
|
|
Hi Maseko
Thanks for Ur reply >The code Snippets is as follows
This is Included in Module ........
DROP-DOWN THE COMBO BOX NAMED CmbSlNo.....
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_SHOWDROPDOWN = &H14F
This code is on Edit Button to Drop-down the List contains Auto.......
Call SendMessage(CmbSlNo.hWnd, CB_SHOWDROPDOWN, True, ByVal 0) 'API FUNCTION IS CALLING FOR DROPDOWN THE COMBO BOX NAMED cmbsLNO
Now when i click on Edit button the list is drop-down and the cursor is in the combo first list index .
But if i click Exit at this instants it Set the combo listindex to 0 on First click
Then on next click it Exits the form.
But i wanna do the same on single click.Plz help if can....
or any other suggestion?
Rizwan
|
|
|
|
|
Sounds like your code might be doing something that causes it to eat the first click, for instance, your custom code might be opening the combo, so as you click off it it's then closing the dropped down combo - perhaps you could post your code for us to look at?
The other option is that you have it set to double click instead of single click.
|
|
|
|
|
|
Hi Damian s
Thanks for Ur reply >The code Snippets is as follows
This is Included in Module ........
<br />
DROP-DOWN THE COMBO BOX NAMED CmbSlNo.....<br />
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _<br />
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br />
<br />
Public Const CB_SHOWDROPDOWN = &H14F
This code is on Edit Button to Drop-down the List contains Auto.......
<br />
Call SendMessage(CmbSlNo.hWnd, CB_SHOWDROPDOWN, True, ByVal 0) 'API FUNCTION IS CALLING FOR DROPDOWN THE COMBO BOX NAMED cmbsLNO
Now when i click on Edit button the list is drop-down and the cursor is in the combo first list index .
But if i click Exit at this instants it Set the combo listindex to 0 on First click
Then on next click it Exits the form.
But i wanna do the same on single click.Plz help if can....
or any other suggestion? Plz Help its urgent??????
Rizwan
modified on Thursday, August 20, 2009 4:31 AM
|
|
|
|
|
|
Set Locked property of the form to false.
It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD
|
|
|
|
|
Don't delete or empty your message.
Read the forum guidelines![^]
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
Hi all,
I want to know, how to check Component(ocx) is already registered or not.
I tried in Google but i didn't get any correct result.
Eg: Using Shell in VB6, executing regsvr32 "COMPONENTNAME.ocx".
I have written this code in the load event of the form. It will execute every time when i launch this form.
I want to check, if the Componet.ocx is already registred then leave it. otherwise registered it.
Thanks & Regards
Kumaran
|
|
|
|
|
here's what you've looking for:
click me!
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
hello,
need help again. why is that in my datagridview after load. it will add a new column instead it should insert combobox in datagridview.
heres what i did.
Me.gridMeasure.Columns.Insert(2, New DataGridViewComboBoxColumn())
in my datagridview
i add it programmatically, im not using the wizard.
Me.gridMeasure.DataSource = ds
Me.gridMeasure.DataMember = "tmpTable"
Me.gridMeasure.Columns(0).Width = 60
Me.gridMeasure.Columns(1).Width = 55
so i want to add a combobox in column 2 thats why i use this
Me.gridMeasure.Columns.Insert(2, New DataGridViewComboBoxColumn())
could someone give me an example on how to add combobox inside datagridview programmatically. note the combobox has different datasource.
thanks,
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
Hi
This is the code I have used in one of my application. Hope this will help.
''ProductName column
Dim ProductName As New DataGridViewComboBoxColumn
With ProductName
.DataPropertyName = "ProductName"
.HeaderText = "Product Name"
.Width = 200
.DataSource = DtProductMaster
.ValueMember = "prod_name"
.DisplayMember = "prod_name"
.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
.ToolTipText = "Select Product Name."
End With
dgv.Columns.Add(ProductName)
Instead of dgv.Columns.Add(ProductName) you can use Insert
If it works please let me know..
Be an Eagle, Sky is Yours.
|
|
|
|
|
Do you need a Combobox column or just one combobox?
It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD
|
|
|
|
|
i was assigned an to do completely migration from vb6 to vb.net. can somebody guide me?please, any little help would be benefitial for me.
' this code is for deleting the selected file that is manually type in textbox
<br />
Dim backupFile As String<br />
<br />
On Error Resume Next<br />
backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
<br />
Call DeleteTableRecord(backupFile, sqlDeleteTestTxn, sqlSelectTestTxn, Adodc_TestTxn, "FWCATNS_TESTTXN")<br />
btnExportData_TestTxn.Enabled = False<br />
btnBackupDataTestTxn.Enabled = False<br />
btnDeleteTesttxn.Enabled = False<br />
Me.SetFocus<br />
'this is for perform backup on file
<br />
Private Sub btnBackupDataTestTxn_Click() 'ok<br />
Dim r As Integer<br />
Dim backupFile As String<br />
Dim backupFolder As String<br />
<br />
Dim s As Integer<br />
Dim FileName As String<br />
Dim continue As Boolean<br />
continue = True<br />
On Error GoTo ErrMesej<br />
backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
<br />
If ValidateID(txtMotherLot.Text) Then<br />
backupFolder = "C:\" & txtMotherLot.Text & "\"<br />
If fso.FolderExists(backupFolder) Then<br />
<br />
If fso.FileExists(backupFile) Then<br />
r = MsgBox("TestTxn.txt backup file exists!Continue to replace it?", vbOK, "TestTxn.txt File Checking")<br />
Select Case r<br />
Case vbOK<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
Case vbCancel<br />
'Exit Sub<br />
s = MsgBox("Do you want to save file with another name other than default name(TestTxn.txt)?", vbOK, "TestTxn.txt File Checking")<br />
Select Case s<br />
Case vbOK<br />
While continue<br />
FileName = InputBox("Please key in new file name other than existing file name ", "Save as new file name")<br />
backupFile = "C:\" & txtMotherLot.Text & "\" & FileName & ".txt"<br />
If fso.FileExists(backupFile) Then<br />
MsgBox "FileName " & backupFile & " already exists!!", vbExclamation<br />
Else<br />
continue = False<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
Wend<br />
Case vbCancel<br />
Exit Sub<br />
End Select<br />
End Select<br />
Else<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
<br />
Else<br />
fso.CreateFolder (backupFolder)<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
Else<br />
MsgBox "Please key in correct MES ID!"<br />
txtMotherLot.SetFocus<br />
txtMotherLot.Text = "<Invalid ID>"<br />
End If<br />
Me.SetFocus<br />
Exit Sub<br />
ErrMesej:<br />
MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />
'this for exporting data from one location to the specific location
<br />
Private Sub btnExportData_TestTxn_Click() 'ok<br />
<br />
Dim r As Integer<br />
Dim exportFile As String<br />
Dim exportFolder As String<br />
<br />
Dim s As Integer<br />
Dim FileName As String<br />
Dim continue As Boolean<br />
continue = True<br />
On Error GoTo ErrMesej<br />
exportFile = "C:\" & txtMotherLot.Text & "\TestTxn.xls"<br />
<br />
<br />
If ValidateID(txtMotherLot.Text) Then<br />
exportFolder = "C:\" & txtMotherLot.Text & "\"<br />
If fso.FolderExists(exportFolder) Then<br />
If fso.FileExists(exportFile) Then<br />
r = MsgBox("TestTxn.xls file exists!Continue to replace it?", vbOK, "TestTxn.xls File Checking")<br />
Select Case r<br />
Case vbOK<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
Case vbCancel<br />
'Exit Sub<br />
s = MsgBox("Do you want to save file with another name other than default name(TestTxn.xls)?", vbOK, "TestTxn.xls Checking")<br />
Select Case s<br />
Case vbOK<br />
While continue<br />
FileName = InputBox("Please key in new file name other than existing file name", "Save as new file name")<br />
exportFile = "C:\" & txtMotherLot.Text & "\" & FileName<br />
If fso.FileExists(exportFile) Then<br />
MsgBox "FileName " & exportFile & " already exists!!", vbExclamation<br />
Else<br />
continue = False<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Wend<br />
Case vbCancel<br />
Exit Sub<br />
End Select<br />
End Select<br />
Else<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Else<br />
fso.CreateFolder (exportFolder)<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Else<br />
MsgBox "Please key in correct MES ID!"<br />
txtMotherLot.SetFocus<br />
txtMotherLot.Text = "<Invalid ID>"<br />
End If<br />
Me.SetFocus<br />
Exit Sub<br />
ErrMesej:<br />
MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />
pliz, i'm new to vb6.
|
|
|
|
|
VB6 is rubbish. There's no direct conversion path, your best bet is to rewrite, and refer to the VB6 code only for ideas on the overall logic required.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
And your problem is!
Or were you hoping someone would write the code for you. We are here to help you learn, not do your job for you.
|
|
|
|
|
Is there a good tutorial VB online? What's the link? I need a good VB tutorial online because I am on the budget(tight) prevent me from purchase a textbook.
|
|
|
|
|
I doubt any online tutorial will be as good as book. If you're just learning for fun tho, if you don't want to write code that is good enough to sell, then I'm sure there's plenty of tutorials out there. This site is full of articles, although I would assume that most assume you know something to start with, you could try downloading some simple ones and reading through them.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
It looks like the book is the best way to go. I want to learn VB and programming in VB. If you learn one language, does that means you know other language easy?
|
|
|
|
|
Yes, once you know the concepts of programming, it makes other languages easier. Knowing VB would mean you basically are 9/10 of the way to knowing C#. Languages like C++ are more work again, but you'd still have a start.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
Hi.
Well, you're very lucky. I've been very busy.
I just launched four super secret web sites!
No one, I repeat, no one can know about them!
Here they are:
http://www.google.com/[^]
http://www.youtube.com/[^]
http://www.ebay.com/[^]
http://www.amazon.com/[^]
Again, these are brand new sites that no one else in the world knows about! So, keep them secret!!
Okay, so on the the last two websites, it'll cost $5 to $20 for stuff. Hey, the websites that *I* just created have to make money somehow.
*** Do a search for:
Visual Basic
Visual Basic 2008
Visual Basic 2005
For stuff that you buy, you can often get the 2005 versions super cheap!
On Amazon, there are a ton, yes a TON, of VS2005 VB books (check out the used and new links) that you can get shipped for $5! Seems no one wants the 2005 books. Heck, I'd be surprised if 1 in 10,000 people need or know about the extra 2008 features. IMHO, for the beginner/intermediate person, they'll never notice the difference between 2005 and 2008!
Also, if you have Netflix, then Netflix has DVD VB tutorials. But, if you're so broke that you can't afford a book, then what the heck are you doing with a Netflix subscription?
Once again, do not tell anyone about these brand new web sites that I just created! They are a secret!
Okay, since I'm so proud of the new websites that *I* just created, I'll shamelessly post links.
http://www.amazon.com/Visual-Basic-2005-Dummies-Sempf/dp/076457728X/[^]
Used(0.01 + $3.99 S&H)
http://www.amazon.com/Beginning-Visual-Basic-Thearon-Willis/dp/0764574019/[^]
Used(0.07 + $3.99 S&H)
http://www.amazon.com/Starting-Out-Visual-Basic-2005/dp/0321393996/[^]
Used(0.83 + $3.99 S&H)
And, many many more!
And, for free, on my brand new, just launched website called youtube.com:
http://www.youtube.com/results?search_query=visual+basic[^]
Last, on my brand new (less than 1 sec old!) super mega secret, no one else in the world knows about website - Google.com:
http://www.google.com/search?q=visual+basic+tutorial[^]
Yea, I should put the above in my sig.
______
Joe
modified on Thursday, August 20, 2009 1:21 AM
|
|
|
|
|
I think your destiny lies in being a shopping channel host i think you would fit right in with that last message, no but wait, thats not all, buy your xyz widget now and you will also receive this exclusive abc widget and a lifetime supply of.....quick their going fast...
|
|
|
|
|
|
The best tutorials are the ones you pay for. I haven't seen any free ones that are any good. Remember, you get what you pay for...
|
|
|
|
|