I want to to save an itamdata for my combobox in visual basic 6.0?
612072
use an array of string that the combo.itemdata value points to that string array. usefull?\n\n<finglish text>\nagar tozihe bishtar bedahid shayad bishtar betavanam komak konam.\n</finglish text>
257040
Consider this good luck. Visual Basic 6 is a legacy product. \n\nInstead, install Visual Basic .NET Express. You can download it free from microsoft.com
861503
you will need to at least write (save) all the items in the listbox to a text file before the program exits so you can retrieve them later.\n\nwhen the program starts (in form load is the best place), then you would load them all back into the listbox by reading each line and using additem again.
926631
use the function 'toCharArray()'\n\nexample:\nString name = "mary";\nchar[]nameByte = name.toCharArray();
768485
I'm not exactly clear on what you're trying to do with the second button, but if you're binding the datagrid from a query, you should be able to set the DataKeyField property of the datagrid to the primary key of your query.  It will then automatically be stored for each row when the datagrid is bound.\n\nYou can then retrieve it by using a line like:\n\n            Dim PID As Integer = Val(source.datakeys(e.Item.ItemIndex))\n\nIf this doesn't help, contact me with the exact error message you're receiving and with more info about what you are using the second button for, and I'll try to help.\n\n- Rich\nhttp://www.IMAgolfer.com
225181
if you have a form thats loaded on the start up on access.\na text box with user box called cboEmployee, and a textbox called txtPassword, and a button calling cmdLogin_Click(), if u get 3 incoredct logins it closes down acceess\n\n\nPrivate Sub cmdLogin_Click()\n\n'Check to see if data is entered into the UserName combo box\n\n    If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then\n            MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"\n            Me.cboEmployee.SetFocus\n        Exit Sub\n    End If\n\n'Check to see if data is entered into the password box\n\n    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then\n            MsgBox "You must enter a Password.", vbOKOnly, "Required Data"\n            Me.txtPassword.SetFocus\n        Exit Sub\n    End If\n\n'Check value of password in tblEmployees to see if this matches value chosen in combo box\n\n    If Me.txtPassword.Value = DLookup("Password", "tblEmployees", "[EmpID]=" & Me.cboEmployee.Value) Then\n\n        lngMyEmpID = Me.cboEmployee.Value\n\n'Close logon form and open splash screen\n        \n        DoCmd.close acForm, "frmLogon", acSaveNo\n        'call the onload from the module\n        getvalue.onload\n        MsgBox ("onload called you should see updated records")\n        \n  \n        Else\n        MsgBox "Password Invalid.  Please Try Again", vbOKOnly, "Invalid Entry!"\n        Me.txtPassword.SetFocus\n    End If\n    \n'If User Enters incorrect password 3 times database will shutdown\n    \n    intLogonAttempts = intLogonAttempts + 1\n    If intLogonAttempts > 3 Then\n        MsgBox "You do not have access to this database.  Please contact your system administrator.", vbCritical, "Restricted Access!"\n        Application.Quit\n    End If\n    \nEnd Sub
966661
check out http://www.pscode.com for examples.  You would need to use ADO.NET in addition to VB.NET in order to obtain the required data.
574900
you must change the file type association in quicktime. \n\nopen quicktime. if it says file associations must be restored to quicktime click no.\n\nclick the edit menu -> preferences -> quicktime preferences\n\non the combobox select file type associations then click the file button\n\ndeselect the appropriate checkboxes
500143
right click file - save as - save !
383836
The Event is working fine what you need to do is something like this\nJComboBox ...named..processKeyEvent(KeyE... ke){\nif(key =="Delete")\n//DELETE THE SELECTED ITEM FROM THE ITEMS OF THE JCOMBOBOX\nrepaint();\n}
629422
You do that with a dialog box:\n\nhttp://www.c-sharpcorner.com/Code/2002/Aug/PassingDataInForms.asp
1123805
A data adapter has to be set up to actually update data. You need to either use a CommandBuilder and give the DataAdapter its GetUpdateCommand() method to its .UpdateCommand property, or you have to write the SQL for the UpdateCommand yourself.\n\nThe fact that it is not saving for you either way should be your clue that the problem is with your saving procedure, and not the exit event.
231066
try doing "save to computer" button
956630
try to find your answer in the Internet first, before you post your messages here.\n\ngoto this site about 'Drag and drop' in VB :\nhttp://www.devx.com/vb/free/articles/pa62502/pa62502-1.asp\nhttp://visualbasic.ittoolbox.com/documents/popular-q-and-a/drag-and-drop-with-listview-2947\nhttp://visualbasic.ittoolbox.com/documents/industry-articles/drag-and-drop-in-windows-forms-a-primer-2510\nhttp://msdn2.microsoft.com/en-us/library/xz32ty04.aspx
760684
Go to Visual Basic.\nOpen the form\nDoublw click the form\nCopy the code\nSave the form and project.\nOpen the file Menu---Find Make project.exe\nClick on it. An exe has been created.\n\n\nThe above is the normal way to make an exe file.\n\nBecause you are not trained in VB. I would suggest you to go to the website www.allexperts.com  Choose the computing category. Then go to Basic Category. Then go to Visual Basic category. Put forward your question to an expert. they will reply you back.\n\nThis is free of charge.\n\nHope this helps
37333
Assuming you are writing your macro in VbScript:\nsResult = Inputbox("Prompt", "Input box title")
268850
Imports System\nImports System.Data\nImports System.Data.OleDb\nTry \n'construct the command object and open a connection to the Contacts table\n\nDim cmdString As String = "Select ContactID, FirstName, LastName from Contacts"\nDim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:&#92;&#92;contactmanagement.mdb"\nDim myConnection As OleDbConnection = New OleDbConnection(connString)\n\n' Open connection\nmyConnection.Open()\n\n'Create OleDbCommand object\nDim TheCommand As OleDbCommand = New OleDbCommand(cmdString, myConnection)\n\nTheCommand.CommandType = CommandType.Text\n' Create a DataReader and call Execute on the Command Object to construct it\n\nDim TheDataReader As OleDbDataReader = TheCommand.ExecuteReader()\n\nWhile TheDataReader.Read()\nSystem.Console.Write(TheDataReader("ContactID").ToString())\nSystem.Console.Write(" ")\nSystem.Console.Write(TheDataReader("FirstName").ToString())\nSystem.Console.Write(" ")\nSystem.Console.Write(TheDataReader("LastName").ToString())\nSystem.Console.WriteLine()\nEnd While\n\nCatch ae As OleDbException\nMsgBox(ae.Message())\nEnd Try