Re: pagalbos su Microsoft VB [IF @ 2009-11-17 11:17:50]

Tema: Re: pagalbos su Microsoft VB
Autorius: IF
Data: 2009-11-17 11:17:50
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=windows-1257" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18852">
<STYLE></STYLE>
</HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px" 
id=MailContainerBody leftMargin=0 topMargin=0 bgColor=#ffffff 
name="Compose message area" CanvasTabStop="true"><FONT size=2 face=Arial>
<DIV><BR>&nbsp;&nbsp;&nbsp; Private Sub TextBox1_TextChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
TextBox1.TextChanged<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim BumBum As 
Integer<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; BumBum = 12 ' 
:)(<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsNumeric(TextBox1.Text) = 
True And Len(TextBox1.Text) = BumBum Then Paspaudimas()</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;&nbsp;&nbsp; End Sub</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;&nbsp;&nbsp; Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles 
Button1.Click<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TextBox1.Text = "" ' 
Nors siek tiek pamazgavoti<BR>&nbsp;&nbsp;&nbsp; End Sub</DIV>
<DIV>&nbsp;</DIV>
<DIV><BR>&nbsp;&nbsp;&nbsp; Private Sub 
Paspaudimas()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TextBox3.Text = 
Mid(TextBox2.Text, 3, 5)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
TextBox4.Text = Mid(TextBox2.Text, 8, 
2)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TextBox1.Text = 
Mid(TextBox2.Text, 10, 3)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If 
TextBox3.Text = 98591 
Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
TextBox5.Text = "PRODUKTAS1"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
ElseIf TextBox3.Text = 98592 
Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
TextBox5.Text = "PRODUKTAS2"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
ElseIf TextBox3.Text = 98593 
Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
TextBox5.Text = "PRODUKTAS3"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
ElseIf TextBox3.Text = 98594 
Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
TextBox5.Text = "PRODUKTAS4"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End 
If</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;&nbsp;&nbsp; End Sub</FONT></DIV></BODY></HTML>