pagalbos su Microsoft VB [AUR1MA5 @ 2009-11-17 10:18:33]

Tema: pagalbos su Microsoft VB
Autorius: AUR1MA5
Data: 2009-11-17 10:18:33
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=unicode" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.7600.16444"></HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px" 
id=MailContainerBody leftMargin=0 topMargin=0 CanvasTabStop="true" 
name="Compose message area">Sveiki,<BR><BR>kaip pradedantysis, turiu kelis 
klausimus:<BR><BR>1.&nbsp; kaip paspaudus migtuka [Button1_Click] istrinti 
irasytus duomenis is [textbox1]<BR>2.&nbsp; kaip padaryti, kad irasius skaicius 
i [textbox2] automatiskai pasispaustu mygtukas 
[button2_click]<BR><BR>dekui,<BR><BR>pvz: I [textbox2] nuskanuokim arba irasykim 
barkoda 259859198765 paspaudus knopke mums ismes produkta ir 
svori<BR><BR><EM><FONT color=#000080>Public Class Form1<BR>&nbsp;&nbsp;&nbsp; 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles 
Button2.Click<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<BR>&nbsp;&nbsp;&nbsp; End Sub<BR><BR>&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;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<FONT color=#ff0000><STRONG>NZN KAIP CIA 
PADARYTI</STRONG></FONT><BR>&nbsp;&nbsp;&nbsp; End Sub<BR>End 
Class</FONT></EM></BODY></HTML>