Tema: Re: Sorry, bet labai lameriskas klausimas Visual Basic
Autorius: Raimis
Data: 2009-07-28 08:07:39
<!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 name="Compose message area"
CanvasTabStop="true">
<DIV><FONT face=Arial size=2>Idek i forma dar viena, Label control'a - produkto
pavadinimui.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>If <FONT face="Arial Narrow"
size=3>Clng(Me.TextBox1.text)>=994155200000 then</FONT></FONT></DIV>
<DIV><FONT face="Arial Narrow"></FONT> </DIV>
<DIV><FONT face="Arial Narrow"> </FONT><FONT face=Arial
size=2>Label1.text="Produktas 1" ' cia Label1 -
control'o vardas (pagal nutylejima)</FONT></DIV>
<DIV><FONT face="Arial Narrow">end if</FONT></DIV>
<DIV><FONT face="Arial Narrow"></FONT> </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==--" <<A
href="mailto:deveros@zebra.lt">deveros@zebra.lt</A>> 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> <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> "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> Private Sub
NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs)<BR><BR> End Sub<BR><BR>
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged<BR><BR> End
Sub<BR>End Class<BR></STRONG><BR>Kaip dabar man irasyti, kad (jei
TextBox>=994155200000 rasytu "1 variantas")<BR><BR>dekui,</FONT>
</BLOCKQUOTE></BODY></HTML>