VB6 Sample Projetcs..: Label1

<div class="wlWriterHeaderFooter" style="float:none; margin:0px; padding:4px 0px 4px 0px;"><iframe src="http://www.facebook.com/widgets/like.php?href=http://vb6sampleproject.blogspot.com/2010/10/combo-box-in-visual-basic-6.html" scrolling="no" frameborder="0" style="border:none; width:450px; height:80px"></iframe></div>Problem : <span style="widows: 2; text-transform: none; text-indent: 0px; border-collapse: separate; font: medium arial, sans-serif; white-space: normal; orphans: 2; letter-spacing: normal; color: black; word-spacing: 0px" class="Apple-style-span">I am writing a little program (calculator) in which I have a combo box with materials and their values. Such as: Glass 1.80 or LH67 1.79. My problem is that I don't know how to pick something in the drop down box and only have the numeric values enter into the equation. I get an error every time because the words (glass or LH67) are being picked as well. <input value="1" type="hidden" name="IL_RELATED_TAGS"> Solvation : <span style="widows: 2; text-transform: none; text-indent: 0px; border-collapse: separate; font: medium arial, sans-serif; white-space: normal; orphans: 2; letter-spacing: normal; color: black; word-spacing: 0px" class="Apple-style-span">Depending on when you want to collect the data, you could use something like below. This is based on clicking a button once you have made your selection, but should be easy enough for you to add to the combobox event if necessary. <div class="csharpcode"> </div> <style type="text/css">.csharpcode, .csharpcode pre { 	font-size: small; 	color: black; 	font-family: consolas, "Courier New", courier, monospace; 	background-color: #ffffff; 	/*white-space: pre;*/ } .csharpcode pre { margin: 0em; } .csharpcode .rem { color: #008000; } .csharpcode .kwrd { color: #0000ff; } .csharpcode .str { color: #006080; } .csharpcode .op { color: #0000c0; } .csharpcode .preproc { color: #cc6633; } .csharpcode .asp { background-color: #ffff00; } .csharpcode .html { color: #800000; } .csharpcode .attr { color: #ff0000; } .csharpcode .alt { 	background-color: #f4f4f4; 	width: 100%; 	margin: 0em; } .csharpcode .lnum { color: #606060; } </style> <div style="border-bottom: silver 1px solid; text-align: left; border-left: silver 1px solid; padding-bottom: 4px; line-height: 12pt; background-color: #f4f4f4; margin: 20px 0px 10px; padding-left: 4px; width: 97.5%; padding-right: 4px; font-family: 'Courier New', courier, monospace; direction: ltr; max-height: 200px; font-size: 8pt; overflow: auto; border-top: silver 1px solid; cursor: text; border-right: silver 1px solid; padding-top: 4px" id="codeSnippetWrapper"> <div style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; border-right-style: none; background-color: #f4f4f4; padding-left: 0px; width: 100%; padding-right: 0px; font-family: 'Courier New', courier, monospace; direction: ltr; border-top-style: none; color: black; font-size: 8pt; border-left-style: none; overflow: visible; padding-top: 0px" id="codeSnippet"><pre style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; border-right-style: none; background-color: white; margin: 0em; padding-left: 0px; width: 100%; padding-right: 0px; font-family: 'Courier New', courier, monospace; direction: ltr; border-top-style: none; color: black; font-size: 8pt; border-left-style: none; overflow: visible; padding-top: 0px"> 1: Private Sub Command1_Click() </pre><pre style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; border-right-style: none; background-color: #f4f4f4; margin: 0em; padding-left: 0px; width: 100%; padding-right: 0px; font-family: 'Courier New', courier, monospace; direction: ltr; border-top-style: none; color: black; font-size: 8pt; border-left-style: none; overflow: visible; padding-top: 0px"> 2: Dim astrdata() As String </pre><pre style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; border-right-style: none; background-color: white; margin: 0em; padding-left: 0px; width: 100%; padding-right: 0px; font-family: 'Courier New', courier, monospace; direction: ltr; border-top-style: none; color: black; font-size: 8pt; border-left-style: none; overflow: visible; padding-top: 0px"> 3: astrdata = Split(Combo1.Text, " ") </pre><pre style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; border-right-style: none; background-color: #f4f4f4; margin: 0em; padding-left: 0px; width: 100%; padding-right: 0px; font-family: 'Courier New', courier, monospace; direction: ltr; border-top-style: none; color: black; font-size: 8pt; border-left-style: none; overflow: visible; padding-top: 0px"> 4: MsgBox "Value of " & astrdata(0) & " is : " & astrdata(1) </pre><pre style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; border-right-style: none; background-color: white; margin: 0em; padding-left: 0px; width: 100%; padding-right: 0px; font-family: 'Courier New', courier, monospace; direction: ltr; border-top-style: none; color: black; font-size: 8pt; border-left-style: none; overflow: visible; padding-top: 0px"> 5: End Sub</pre></div></div> <span style="widows: 2; text-transform: none; text-indent: 0px; border-collapse: separate; font: medium arial, sans-serif; white-space: normal; orphans: 2; letter-spacing: normal; color: black; word-spacing: 0px" class="Apple-style-span">Just to note that the data is extracted as a string. If you want to do calculations with it, you will need to validate and cast it as the relevant numeric type. Hope that helps. <div class="blogger-post-footer"><SCRIPT LANGUAGE="JavaScript1.1" SRC="http://bdv.bidvertiser.com/BidVertiser.dbm?pid=339185%26bid=850387" type="text/javascript"></SCRIPT><noscript><a href="http://www.bidvertiser.com">online advertising</a></noscript> </div>

Combo Box in Visual Basic 6

Problem : I am writing a little program (calculator) in which I have a combo box with materials and their values. Such as: Glass 1.80 or LH6...