¥xÆW³Ì¤jµ{¦¡³]­pªÀ¸sºô¯¸
½u¤W¤H¼Æ
1628
 
·|­ûÁ`¼Æ¡G246213
°Q½×¥DÃD¡G189782
Åwªï±z§K¶O¥[¤J·|­û
°Q½×°Ï¦Cªí >> VB.NET >> textbox¦³¤@¨Ç³s¸¹ Åý¥L¦Û°Ê½s¸¹
[]  
[§Ú­n¦^ÂÐ]
1
¦^À³¥DÃD ¥[¤J§ÚªºÃöª`¸ÜÃD ÀËÁ|¦¹½g°Q½× ±N´£°ÝªÌ¥[¤J­Ó¤H¶Â¦W³æ
textbox¦³¤@¨Ç³s¸¹ Åý¥L¦Û°Ê½s¸¹
»ù­È : 100 QP  ÂI¾\¼Æ:493 ¦^À³¼Æ:11
¼Ó¥D

ºµºµ
ªù¥~º~
0 2
60 6
µo°e¯¸¤º«H

°²³]§ÚªºTextbox1¦³
3U204
3U205
3U293
3U294
3U295
3U296
3U297
3U298
1F967
1F968
1F969
1F979
1F981
§Ú·QÅý¥L«ö¤UButton1¤§«á·|¦Û°Ê±Æ§Ç¨Ã¥B³s¸¹¸ò³s¸¹¤§¶¡·|¥Î~¨ú¥N ¦pªG¨S¦³³s¸¹½s¸¹¸ò½s¸¹·|¦³ªÅ®æ µM«á©ñ¨ìTextBox2¥h

¤p§Ì§Ú·Q¤F«Ü¤[ÁÙ¬O¨S·Q¥X¨Ó ·Q½Ð­Ó¦ì¤j¤j¸Ñµª

·j´M¬ÛÃöTagsªº¤å³¹¡G [ ³s¸¹ ] , [ ½s¸¹ ] , [ §Ç¦C ] , [ textbox ] , [ VB ] , [ NET ] ,
¥»½g¤å³¹µoªí©ó2019-10-10 00:25
1¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
¥ý±N±z­nªº¤À¶¥¬q¨Ó§@
1.­n±Æ§Çªº¸ê®Æ©ñ¦b¨ºùØ ?
A. Array ±Æ§Çªº¸Ü½Ð¥Î Array.sort ¨Ó±Æ§Y¥i
Array ±Æ§Ç
B. DataTable Array ±Æ§Çªº¸Ü½Ð¥Î Array.sort ¨Ó±Æ§Y¥i
Array ±Æ§Ç
B. DataTable ±Æ§Çªº¸Ü¡A½Ð¥Î Dt1.select

2.Âà¥X­n ³s¸¹¥[¥Î ~ ªºµ{¦¡µ¥±z±N1. §@§¹«á¦A¨Ó
¥»½g¤å³¹¦^ÂЩó2019-10-10 07:49
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
2¼Ó
§@ªÌ¦^À³

ºµºµ
ÀËÁ|¦¹¦^À³
¦³ §Ú¥ÎArray.sort ±Æ§Çªº §Ú²{¦b¬O¥d¦b²Ä¤GÂI
¥»½g¤å³¹¦^ÂЩó2019-10-10 21:50
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
3¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
data1() ±Æ§Ç«áªº¸ê®Æ ¥u¤ñ¹ï«á¤T½X

°Ñ¦Ò¬Ý¬Ý¡A¤£«OÃÒ¹ï¡A¦³°ÝÃD¦A¨Ó°Q½×

Sno=data1(0):Lno=Sno

for ii=1 to data1.length-1
if right(data1(ii),3)- right(LNo,3) =1 then
Lno=data1(ii)
else
if sno=lno then
print Sno & " "
else
print Sno & "~" & Lno &" "
end if
sno=data1(ii)
end if
next




¥»½g¤å³¹¦^ÂЩó2019-10-11 09:57
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
4¼Ó
§@ªÌ¦^À³

ºµºµ
ÀËÁ|¦¹¦^À³
§Ú²{¦bªºCODE¬O¦p¤U

¥»½g¤å³¹¦^ÂЩó2019-10-11 21:37
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
5¼Ó
§@ªÌ¦^À³

ºµºµ
ÀËÁ|¦¹¦^À³
If right(data1(ii), 3) - right(lno, 3) = 1 Then
¦b³o¦æ¥L¸õ¿ù»~ BC30057 Public Overloads ReadOnly Default Property Chars(index As Integer) As Char' ªº¤Þ¼Æ¤Ó¦h¡C
½Ð°Ý§Ú²{¦b¸Ó«ç»ò¸Ñ¨M
³Â·Ð¤F ¤£¦n·N«ä
¥»½g¤å³¹¦^ÂЩó2019-10-11 21:39
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
6¼Ó
§@ªÌ¦^À³

ºµºµ
ÀËÁ|¦¹¦^À³
ÁÙ¬ORight¤£¥NªíTextbox2 ¦]¬°§Ú§ä¤£¨ì¦³ÃöRightªº¨ç¼Æ
¥»½g¤å³¹¦^ÂЩó2019-10-11 22:25
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
7¼Ó
§@ªÌ¦^À³

ºµºµ
ÀËÁ|¦¹¦^À³
§ó¥¿ ¸Ñ¨M ¦ý¦³¥t¤@­Ó°ÝÃD§Ú¦A·Q¬Ý¬Ý ·Q¤£¥X¨Ó¦A°Ý±z
¥»½g¤å³¹¦^ÂЩó2019-10-11 23:01
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
8¼Ó
¦^À³

HB
ÀËÁ|¦¹¦^À³
Right¶·§ó¥¿¬°Microsoft.VisualBasic.Right
´£¨Ñ¤U¦C»yªk¨Ñ°Ñ¦Ò¡G

¥»½g¤å³¹¦^ÂЩó2019-10-13 15:34
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
9¼Ó
§@ªÌ¦^À³

ºµºµ
ÀËÁ|¦¹¦^À³
³o¼Ë¤l¤j­P¤W¬O¸Ñ¨M¤F ¦ý¦pªG§Ú¬O£¸²Õ³s¸¹
1N008
1N009
1N010
1N011
1N012
1N013
1N014
1N015
1N016
1N017
1N018
1N019
1N020
¥L·|Åܦ¨
1N008¡ã1N009
1N010¡ã1N019
1N020
¥i¬O§Úªº¬O·QÅܦ¨
1N008~1N020
§Ú§â12¦æ§ï¦¨
If Asc(tmpN) - Asc(tmpS) = 1 or Asc(tmpN) - Asc(tmpS) = -9
³o¼ËÁÙ¬O¨S¦³§@¥Î
½Ð°Ý¦³¬Æ»ò¸Ñ¨M¿ìªk¶Ü
¤£­nÅý¥L¥u¨ú§À¼Æ
¥»½g¤å³¹¦^ÂЩó2019-10-13 23:14
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
10¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
­«ÂI¤£¦b12¦æ¡A ¬O¦b10,11 right(???,3) ¤£¯à¥u¥Î right(???,1)
¨ä¥L±z­n°t¦X­×§ï

ÁÙ¬O¤£¦æªº¸Ü¡A½Ð±Nµ{¦¡PO¥X¨Ó
¥»½g¤å³¹¦^ÂЩó2019-10-14 07:13
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
11¼Ó
¦^À³

HB
ÀËÁ|¦¹¦^À³
8Fªº»yªk­×§ï¦p¤U¡A¸Õ¸Õ¡G

Line 10: Dim tmpS As Integer=val( Microsoft.VisualBasic.Right(tmpB, 2) )
Line 11: Dim tmpN As Integer=val( Microsoft.VisualBasic.Right(data1(i), 2))
Line 12: If tmpN - tmpS = 1 AndAlso
Line 13: Microsoft.VisualBasic.Left(tmpB, 3) = Microsoft.VisualBasic.Left(data1(i), 3) Then
¥»½g¤å³¹¦^ÂЩó2019-10-14 07:55
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
   
1

¦^ÂÐ
¦p­n¦^À³,½Ð¥ýµn¤J.