ÿþ<HTML> <HEAD> <link rel="STYLESHEET" type="text/css" href="cssClass.css"> <TITLE>VB .NET-89= H8=M;M3 7v9;A (.0=1>;4)</TITLE> </HEAD> <BODY> <A NAME="VBNews"></A> <P>&nbsp;</P> <script language="JavaScript"> if (top.frames.length==0) { document.write(' <table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#C0C0C0">'); document.write(' <tr><th width="33%"><p align="left"><a href="http://www.asuult.net/gganbold">VS.NET-89= B0;00@ 4M;3M@M=3v9</a></p></th>'); document.write(' <th width="33%"><h1 align=center>VB .NET-89= H8=M;M3 7v9;A</h1></th>'); document.write(' <th width="34%" ><p align="right">.0=1>;4 /2002.12.01/ </p></th> </tr>'); document.write('</table>'); } else { document.write('<h1 align=center>VB .NET-89= H8=M;M3 7v9;A</h1>'); } </script> <P>&nbsp;</P> Visual Basic .NET-K= T<=TE EC28;10@CC400A O;30@0E >=F;>3, =M<M34AM= H8=M;M3 >9;3>;BCC4K3 M=MEvv E8GMM;MMA C=H86 <M4ME 1>;=>. Visual Basic .NET =L H8=MG;M34M= G0420@;03 1J5:B %0=40;B0B @>3@0<<G;0;K= (Object Oriented) EM; 1>;A>=. T= 2M1 ET36vv;MEM4 7>@8C;A0= Web Form-CC4 =L 1@>0C75@-ACC@LB09 Web Appliction-K3 EO;10@, EC@40= E89E 1>;><6 >;3>=>. =3MM4 1CA04 TT@G;T;B, H8=MG;M;89= B0;00@ B0=8;FCC;JO. <P>&nbsp;</P> <h4>0AA82</h4> Option base <M4M34M; E0A034A0=. T@ EM;1M; 184=89 <M4ME VB6-4 <0AA8289= ME;M; 1-MMA 109A0= 1>; >4>> VB.NET-4 <0AA8289= ME;M; 0-MMA ME;M4M3 1>;A>=. 8HMM =L: <br> <pre syntax> Dim astrValue(20) as String</pre> MM@E :>4 =L 21 M;L<5=B 1vE89 BM<4M3B <T@ BT@;89= <0AA82 vvA3M=M. <p> <h4>"M<4M3B <T@ ;vv E0=40E =L</h4> "M<4M3B <T@893 B>4>@E>9 C@BB09 70@;0EK3 v; 7T2HTT@=T."M<4M3B <T@ =L TT@89= 3MAM= H8=6 G0=0@00@ E0=3034A0=. 8HMM =L:<br> <pre syntax> Dim strName As String StrName =   .PadRight(30)</pre> StrName EC2LA03G893 30-= E>>A>= 709300@ 4vv@3M6 109=0.<p> <h4>vEM; B>>= BT@;vv4</h4> 0@8< 1vEM; B>>= BT@;vv489= 020E CB3K= EM<6MM TT@G;T34AT=. 8HMM;1M; Integer BT@T; -32,678 -MMA 32,767 Ev@BM; CB30 02403 109A0= 1>; >4>> VB.NET-4 -2,147,483,648 -00A 2,147,483,647 Ev@BM; CB30 02=0.<p> <h4>Decimal BT@T;</h4> Currency BT@T; E0A0340=, >@>=4 =L Decimal B>>= BT@T; =M<M34AM=. -=M BT@T; =L 1CA04 EM;=vv4 1>;>= T3T34;89= 1007B09 1v@M= 7>E8F>E G0420@B09 10 0-MMA 28 Ev@BM; >@>=3 103B006 G04=0. T.E vEM; 10 1CB0@E09 >@>=389= =89B B>> =L 29-00A 8E3v9 109=0.<p> <h4>Char BT@T;</h4> Char BT@T; =L 2 109B EM<6MMBM9 1>;A>= 10 UNICODE BM<4M3Bvv4893 03CC;6 G040E 1>;A>=. <p> <h4>Object BT@T;</h4> Variant BT@T; Object BT@;TT@ A>;834A>=. Object BT@T; =L TT@ =M<M;B 1CA04 T3T34;89= BT@;893 E0430;6 G04=0.<p> <h4>DefType</h4> DefType-3 B>4>@E>9;A=>>@ EC2LA03G O<0@ vA3MM@ MEM;A=MMA H0;B300;0= BCE09= EC2LA03G89= BT@;893 B>4>@E>9;6 1>;4>3 109A0= 18;MM. "M32M; >4>> vv=893 EM@M3;ME 1>;><63v9 1>;A>= 10 EC2LA03G893 70020; 70@;0E H00@4;030B09. <p> <h4>Boolean v9;4M;</h4>  And ,  Or ,  XOR v9;4;vv4 =L Boolean 1>;>= 18B v9;4;vv4M4 EM@M3;M344M3 109A0=. 4>> H8=M BitAnd, BitOr, BitXOR, BitNot 3MAM= v9;4;vv4893 EM@M3;ME 1>;><6B>9. -43MM@ v9;4;vv4893 Boolean 1>;>= B>>= BT@;vv4M4 EM@M3;M6 1>;=>.<p> <h4>V9;4M; EO;10@G;0E</h4> VB.NET-4 AndAlso, OrElse E>Q@ H8=M ;>38: v9;4M; =M<M34AM=. %M@M2 B0 >;>= ;>38: v9;4M; 0H83;06 109300 1>; AndAlso, OrElse =L 8;vv v9;4;MMA 709;AE89E 1>;><6 >;3>=>. <br> OrElse ;>38: v9;4;893 0H83;0A0= v54 ME=89E =L v=M= 109E N< 1>; 8;M@E89;M; HCC4 v=ME 3MAM= CB30 1CF00=0.<br> AndAlso ;>38: v9;4;893 0H83;0A0= v54 ME=89E =L EC40; 1>; 8;M@E89;M; HCC4 EC40; 3MAM= CB30 1CF00=0. 8HMM =L:<p> %M@M2 4>>@E :>4K3 0H83;020; FlagTestFalse() 10 FlagTestTrue() DC=:Fvv4 =L 2-CC; 4CC40340=0. <pre syntax> If FlagTestFalse() And FlagTestTrue() Then MessageBox.Show(" '-=M =TEFT; 185;ME3v9") End If Private Function FlagTestFalse() As Boolean MessageBox.Show("FlagTestFalse()") Return False End Function Private Function FlagTestTrue() As Boolean & Return True End Function </pre> <p> %M@M2 And v9;4;89= >@>=4 AndAlso v9;4;893 0H83;020; FlagTestTrue() DC=:F =L 4CC40340E3v9. <pre syntax> If FlagTestFalse() AndAlso FlagTestTrue() Then MessageBox.Show(" '-=M =TEFT; 185;ME3v9") End If </pre> <h4>1J5:BK= v=4AM= property</h4> 1J5:BK= v=4AM= property v3v9 1>;A>=. 8HMM =L: VB6-4 TextBox1= Text1 3M6 >=>>EK3 7T2HTT@4T3 109A0= 1>; VB.NET-4 70020; TextBox1.Text= Text1 3M6 18G8E893 H00@40=0.<p> <h4>;0AAK= H8=6 G0=0@K3 (property) B>4>@E>9;>E</h4> VB-89= T<=TE EC28;10@CC404 :;0AAK= H8=6 G0=0@K3 B>4>@E>9;>E4>> Property Get/ Set/ Let Bv;Evv@ v3vv4893 EM@M3;M4M3 109A0= 18;MM. VB.NET-4 =M3 =M@M= 4>@ Get, Set-893 EM@M3;M=M. 8HMM;1M;: <pre syntax> Private mstrFirstName As String Private mintCode As Integer = -1 Property FirstName() As String Get Return mstrFirstName End Get Set(ByVal Value As String) mstrFirstName = Value End Set End Property Property Code() As Integer Get Code = mintCode End Get Set(ByVal Value As Integer) If Value = 0 Or Value = 1 Then mintCode = Value Else mintCode = -1 End If End Set End Property </pre> <h4>%M@M3;M3G89= B>4>@E>9;A>= BT@;vv4</h4> Type& End Type Bv;Evv@ v3893 0H83;0= EM@M3;M3G89= B>4>@E>9;A>= BT@;vv4893 vvA3M4M3 109A0= 1>; VB.NET-4 Structure& End Structure Bv;Evv@ v3893 0H83;0=0.<br> <pre syntax> Structure Customer Public CustID As Integer Dim CustomerName As String Private TotalSalesAmount As Decimal End Structure </pre> <p> <h4>%C2LA03G B>4>@E>9;>E>4 30@A0= TT@G;T;B</h4> <pre syntax> Dim intLoop, intValue as Integer</pre> VB6-4 intLoop EC2LA03G =L Variant BT@T; 020E 1>;=>. %0@8= VB.NET-4 intLoop, intValue EC2LA03GCC4 =L 2-CC; Integer BT@T; 109E N<.<p> <h4>1J5:B vvA3ME</h4> 1J5:B vvA3ME4MM 40@00E 0@3CC400@ vvA3M6 1>;=>. <OL type= a> <LI><Pre syntax>Dim oCust As New Customer()</Pre></LI> <LI><Pre syntax>Dim oCust As Customer = New Customer()</Pre></LI> <LI><Pre syntax>Dim oCust As Customer oCust = New Customer()</Pre></LI> </OL> <h4>Method->>@ A>;834A>= DC=:Fvv4 </h4> <TABLE border=1 cellspacing="0" cols=2 frame=box rules=all> <TR> <TH>$C=:F</TH> <TH>T@G;T;B</TH> </TR> <TR> <TD>Circle()</TD> <TD>System.Drawing.DrawEllipse</TD> </TR> <TR> <TD>Line()</TD> <TD>System.Drawing.DrawLine</TD> </TR> <TR> <TD>Atn()</TD> <TD>System.Math.Atan</TD> </TR> <TR> <TD>Atn()</TD> <TD>System.Math.Atan</TD> </TR> <TR> <TD>Sgn()</TD> <TD>System.Math.Sign</TD> </TR> <TR> <TD>Sqr()</TD> <TD>System.Math.Sqrt</TD> </TR> <TR> <TD>Rnd()</TD> <TD>System.Math.Rnd</TD> </TR> <TR> <TD>Round()</TD> <TD>System.Math.Round</TD> </TR> <TR> <TD>IsNull()</TD> <TD>IsDBNull()</TD> </TR> <TR> <TD>IsObject()</TD> <TD>IsReference()</TD> </TR> <TR> <TD>VarType()</TD> <TD>System.Object.GetType()</TD> </TR> <TR> <TD>MsgBox</TD> <TD>MessageBox.Show()</TD> </TR> <TR> <TD>LSet</TD> <TD>System.String.PadRight</TD> </TR> <TR> <TD>RSet</TD> <TD>System.String.PadLeft</TD> </TR> <TR> <TD>DoEvents</TD> <TD>System.WinForms.Application.DoEvents</TD> </TR> </TABLE><p> <h4>0@8< TT@G;T;Bvv4</h4> %M;M=4 30@A0= 1CA04 TT@G;T;Bvv4MMA 4C@40E04:<br> <OL TYPE=square> <LI>Pset, Scale-CC4 E0A034A0=</LI> <LI>Empty, Null-CC4 E0A034A0=</LI> <LI>IsEmpty() =L E0A034A0=</LI> <LI>;M@E89;M;4 Null CB30 >=>>2>; 0;400 T3TE 1>;=></LI> <LI>">3B<>;CC4 =L ControlChars :;0AA4 103B0E 1>;A>=</LI> <LI>$C=:FK= 40@00 $ BM<4M3 EM@M3;ME H00@4;0303v9</LI> <LI>Let a=b =L 068;;0E3v9</LI> <LI>Class_Initialize, Class_Terminate CC4 =L E0A034A0=</LI> <LI>VarPtr, VarPtrArray, VarPtrStringArray, ObjPtr, StrPtr CC4 =L E0A034A0=</LI> </OL> <p> <h4>WinForm-89= TT@G;T;Bvv4</h4> Visual Basic.NET-89= D>@<CC404 <0H 8E TT@G;T;B >@A>=.<br> <OL TYPE=square> <LI>vE :>=B@>;K= TabIndex-893 0 >=>>6 1>;=></LI> <LI>Zorder =L runtime v54 :>=B@>;CC4K= 109@;0;K3 TT@G8;4T3</LI> <LI>(8=M LinkLabel :>=B@>; =L 38?5@;8=: E89EM4 7>@8C;034A0=</LI> <LI>GroupBox :>=B@>; Frame :>=B@>;>>@ A>;834A>=</LI> <LI>(8=M Splitter :>=B@>;K3 0H83;0= Explorer-like 8=B5@D09A vvA3M6 G04=0</LI> <LI>Drag & Drop 1v@M;4MEvv=4 8EMMEM= TT@G;T;B >@A>=</LI> <LI>DDE (Dinamic Data Exchange)-3 4M<64M33v9</LI> <LI>Time :>=B@>;K= Interval-893 0 1>;3>EK3 7T2HTT@4T33v9</LI> <LI>OLE :>=B@>;K3 4M<644M33v9</LI> <LI>Shape :>=B@>; 109E3v9</LI> <LI>Line :>=B@>; 109E3v9</LI> <LI>Form.PrintForm method E0A034A0=</LI> <LI>Clipboard 068;;0300 8E TT@G;T4AT=. 4>> System.WinForms.Clipboard 0H83;0=0.</LI> <LI>$>@<K= Name property-3 CB3K3 020E 1>;><63v9</LI> <LI>$>@<K3 Show E89E89= BC;4 D>@< BT@;89= EC2LA03G 70@;0E QAB>9</LI> <LI>Form 1>;>= :>=B@>;K= :>>@48=0BCC4K3 Twips EM<64M3 109A0= 1>; .NET-4 Pixel-MM@ EM<64M3 1>;A>=.</LI> <LI>3T34;893 DAO 1>;>= RDO 0H83;0= 1>;>2A@CC;6 G040E3v9. T2ET= DAO 0H83;034A0= ?@>65:BB>9 v54 EM@;M3;ME 1>;><6B>9. </LI> </OL><p> <h4>Debuging</h4> Debug.Print =L Debug.Write 1>;>= Debug.WriteLine-CC400@ A>;834A>=.<p> <h4>3T34;89= 1007K= EM@M3AM;vv4</h4> DataView F>=E E0A0340= >@>=4 =L Server Explorer =M<M34AM=. vE T3T34;89= 1007K= EM@M3AM;vv4 =L SQL Server 2000  B09 068;;0E04 7>@8C;034A0=. <p> <h4>Web Application-CC4</h4> Visual Basic.NET 4MM@ 2M1 EM@M3;MM=89 ?@>3@0<< 1093CC;0E 068;;0300 M@A TT@G;T34AT=. %M@M2 B0=4 VB6 4MM@ 2M1 E89E 70@8< B5E=8:893 EM@M3;MAM= ?@>65:B 189 1>; BM43MM@893 40E8= 18G8E EM@M3BM9 1>;=>. <br> <OL TYPE=square> <LI>IIS Application-CC4 4M<68344M33v9 E0@8= >@>=4 =L ASP.NET 1>;>= WebForm-CC4K3 EM@M3;ME H00@4;030B09.</LI> <LI>DHTML Application-CC4 <T= 4M<68344M33v9</LI> <LI>ActiveX Document-CC4 <T= 4M<68344M33v9</LI> </OL> <P>&nbsp;</P> <p align="center"> <a href="VSNET.html">Visual Studio .NET 10 IDE</a> | <a href="#VBNews"> 4MMHMM</a> | <a href="VBDataTable.html">DataTable :;0AA</a> <br> <script language="JavaScript"> document.write('<a href="') if (top.frames.length==0) {document.write('default.htm');} else {document.write('Main.html');} document.write('">=vv@ ECC40A</a>') </script> </p> <P>&nbsp;</P> <IMG SRC="http://counter.digits.com/wc/-c/1/-d/5/-b/c8c8c8/-f/00000/mousemn" ALIGN="middle" WIDTH=1 HEIGHT=1 BORDER=0 > </BODY> </HTML>