Re: Sorry, bet labai lameriskas klausimas Visual Basic [Raimis @ 2009-07-28 08:24:42]

Tema: Re: Sorry, bet labai lameriskas klausimas Visual Basic
Autorius: Raimis
Data: 2009-07-28 08:24:42
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16850" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY id=MailContainerBody 
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-TOP: 15px" 
bgColor=#ffffff leftMargin=0 topMargin=0 CanvasTabStop="true" 
name="Compose message area">
<DIV><FONT face=Arial size=2>Tiesa, nenurodziau, kur tai irasyti...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2><FONT face="Arial Narrow" 
size=3><STRONG>&nbsp;</STRONG>Private Sub TextBox1_TextChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged<BR>
<DIV><FONT face=Arial size=2>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; If <FONT 
face="Arial Narrow" size=3>Clng(Me.TextBox1.text)&gt;=994155200000 
then</FONT></FONT></DIV>
<DIV><FONT 
face="Arial Narrow">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
</FONT><FONT face=Arial size=2>Label1.text="Produktas 1"&nbsp;&nbsp;&nbsp; ' cia 
Label1&nbsp; - control'o vardas (pagal nutylejima)</FONT></DIV>
<DIV><FONT face="Arial Narrow">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; end 
if</FONT></DIV></FONT></FONT></DIV>
<DIV><FONT face=Arial size=2><FONT face="Arial Narrow" size=3>&nbsp;&nbsp;&nbsp; 
End Sub</FONT><BR></DIV></FONT>
<BLOCKQUOTE dir=ltr 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV><FONT face=Arial size=2>If <FONT face="Arial Narrow" 
  size=3>Clng(Me.TextBox1.text)&gt;=994155200000 then</FONT></FONT></DIV>
  <DIV><FONT face="Arial Narrow"></FONT>&nbsp;</DIV>
  <DIV><FONT face="Arial Narrow">&nbsp;&nbsp;&nbsp; </FONT><FONT face=Arial 
  size=2>Label1.text="Produktas 1"&nbsp;&nbsp;&nbsp; ' cia Label1&nbsp; - 
  control'o vardas (pagal nutylejima)</FONT></DIV>
  <DIV><FONT face="Arial Narrow">end if</FONT></DIV>
  <DIV><FONT face="Arial Narrow"></FONT>&nbsp;</DIV>
  <DIV><FONT face="Arial Narrow">sekmes</FONT></DIV>
  <BLOCKQUOTE 
  style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
    <DIV>"--==Deveros==--" &lt;<A 
    href="mailto:deveros@zebra.lt">deveros@zebra.lt</A>&gt; wrote in message <A 
    href="news:h4k0lt$ukv$1@trimpas.omnitel.net">news:h4k0lt$ukv$1@trimpas.omnitel.net</A>...</DIV><FONT 
    face="Arial Narrow">Sweiki,<BR><BR>kiek isivaizduoju tai neturetu buti sunku 
    su tokiu kaip MS Visual Studio ir <BR>Visual Basic, padaryti tokia 
    programke.<BR>&nbsp;<BR>Kaip as isivaizduoju: yra keli barkodu intervalai, 
    pvz:<BR>1. nuo 994155200000 iki 994155299999<BR>2. nuo 994155300000 iki 
    994155399999<BR>3. nuo 994155400000 iki 994155499999<BR><BR>su skeneriu 
    nuskanuoji barkoda, jis isiraso I programoje esanti lauka. Jei<BR>jis 
    atitinka pirma, antra ar trecia varianta tai tarkim kazkur 
    zamiau<BR>pasiraso uzrasas<BR>&nbsp;"1 produktas"; "2 produktas" ir 
    t.t.<BR><BR>-----------------------------------------------------------------------------------<BR>Klausimas:<BR><BR>susikure 
    lentele automatiskai, idejau TextBox. Gavau toki skriptuka. 
    <BR><BR><STRONG>Public Class Form1<BR><BR>&nbsp;&nbsp;&nbsp; Private Sub 
    NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As 
    System.EventArgs)<BR><BR>&nbsp;&nbsp;&nbsp; End 
    Sub<BR><BR>&nbsp;&nbsp;&nbsp; Private Sub TextBox1_TextChanged(ByVal sender 
    As System.Object, ByVal e As System.EventArgs) Handles 
    TextBox1.TextChanged<BR><BR>&nbsp;&nbsp;&nbsp; End Sub<BR>End 
    Class<BR></STRONG><BR>Kaip dabar man irasyti, kad&nbsp; (jei 
    TextBox&gt;=994155200000 rasytu&nbsp;"1 variantas")<BR><BR>dekui,</FONT> 
  </BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>