|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
TextBoxｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ全ｿｽpｿｽEｿｽｿｽｿｽpｿｽﾌ具ｿｽﾊゑｿｽﾂゑｿｽｿｽｿｽﾉゑｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽﾖ撰ｿｽ 2004/10/13(ｿｽｿｽ) 14:05:29
ｿｽﾇゑｿｽｿｽｿｽAｿｽｿｽｿｽﾑゑｿｽｿｽﾑゑｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
TextBoxｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽMaxLengthｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽ制鯉ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽSｿｽpｿｽEｿｽｿｽｿｽpｿｽﾌ具ｿｽﾊまではでゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽSｿｽpｿｽﾅ２ｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾍ、
ｿｽｿｽｿｽpｿｽｿｽｿｽﾆ倍ｿｽﾌ４ｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾓゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
WindowsXP:VB.NET2003
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/10/13(ｿｽｿｽ) 16:13:41
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽwｿｽｿｽｿｽpｿｽxｿｽﾆゑｿｽｿｽH
MaxLengthｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾌみで趣ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆは出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾖ撰ｿｽ 2004/10/13(ｿｽｿｽ) 17:20:29
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽA
vbFromUnicodeｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽoｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽVB.NETｿｽﾅは使ｿｽｿｽｿｽﾈゑｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで・ｿｽEｿｽE
ｿｽｿｽｿｽｿｽﾉなゑｿｽ謔､ｿｽﾈゑｿｽﾌはなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽtｿｽｿｽ 2004/10/13(ｿｽｿｽ) 17:36:01
>vbFromUnicodeｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽoｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽVB.NETｿｽﾅは使ｿｽｿｽｿｽﾈゑｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽMSDNｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎわかｿｽｿｽﾌでは？
.NetｿｽｿｽStrConvｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾍ知ｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽﾞ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾌはゑｿｽｿｽｿｽﾌでは？
ｿｽｿｽｿｽｿｽｿｽﾜでゑｿｽ
vbFromUnicode
ｿｽｿｽVB6.0ｿｽｿｽﾅ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ關費ｿｽﾈゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽﾂつ抵ｿｽｿｽﾗてゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽE
http://santamartadotnet.hp.infoseek.co.jp/documents/dotnettips/tips016.html
ｿｽｿｽｿｽﾌ辺で幸ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽH
932ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽiｿｽVｿｽtｿｽgJISｿｽﾌ与ｿｽｿｽｿｽｿｽ黷ｽｿｽ關費ｿｽjｿｽﾌとゑｿｽｿｽｿｽｿｽ
Encoding.GetEncoding("shift_jis")
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽeｿｽXｿｽgｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽEｿｽEｿｽE
ｿｽｿｽｿｽﾈみにゑｿｽｿｽﾌ擾ｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽ骼橸ｿｽﾔは１ｿｽｿｽｿｽｿｽｿｽxｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/10/13(ｿｽｿｽ) 17:59:30
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽBｿｽﾟ具ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾅｿｽｿｽｿｽｿｽNｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽwｿｽｿｽｿｽpｿｽxｿｽﾅ過具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾌｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽﾌ鯉ｿｽｿｽﾄ托ｿｽｿｽvｿｽﾆ費ｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA[VB6.0]ｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽh
ｿｽｿｽｿｽXｿｽｿｽｿｽﾅ鯉ｿｽｿｽﾂゑｿｽｿｽかｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
[VB.NET]ｿｽｿｽStrConvｿｽﾖ撰ｿｽｿｽﾉゑｿｽVbStrConvｿｽ挙型ｿｽｿｽｿｽｿｽｿｽo
ｿｽｿｽwｿｽ閧ｵｿｽﾜゑｿｽｿｽBvbFromUnicodeｿｽﾍ含まゑｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽEncodingｿｽNｿｽｿｽｿｽXｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽNｿｽｿｽｿｽﾟ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾌｿｽｿｽｿｽｿｽNｿｽｿｽ
[VB.NET]ｿｽSｿｽpｿｽﾆ費ｿｽｿｽpｿｽｿｽｿｽﾊゑｿｽｿｽｿｽ
http://www.sugi-family.net/papanvb/vbnet_tips.asp?cate=10&tips=10001
ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾖ撰ｿｽ 2004/10/15(ｿｽｿｽ) 16:29:33
MaxLengthｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾆ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、
ｿｽwｿｽ閧ｵｿｽｿｽｿｽoｿｽCｿｽgｿｽｿｽｿｽ超ゑｿｽｿｽﾄ難ｿｽｿｽﾍゑｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽ
ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
PrivateSubtxtName_Validating(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlestxtName.Validating
'ｿｽｿｽｿｽｿｽｿｽﾍの場合ｿｽﾍ撰ｿｽｿｽｿｽIｿｽｿｽ
IfTrim(Me.txtName.Text)=NothingOrTrim(Me.txtName.Text)=""Then
ExitSub
EndIf
DimobjEncodingAsEncoding=System.Text.Encoding.GetEncoding("Shift_JIS")
DimintByteCountAsInteger=objEncoding.GetByteCount(Me.txtName.Text)
'ｿｽｿｽｿｽｿｽｿｽoｿｽCｿｽgｿｽｿｽｿｽﾆの費ｿｽr
IfintByteCount>20Then
'ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
'Me.txtName.Text.Substring(0,20)
'ｿｽｿｽｿｽ黷ｾｿｽﾆバｿｽCｿｽgｿｽｿｽｿｽﾅはなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
EndIf
EndSub
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/10/15(ｿｽｿｽ) 17:46:30
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ[ｿｽUｿｽﾉ修ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか…ｿｽBｿｽｿｽｿｽ[ｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ辜ｿｽ[ｿｽUｿｽﾉ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽcｿｽﾆ過具ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽLｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄは別にゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌで…ｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾆオｿｽ^ｿｽIｿｽ^ｿｽｿｽｿｽﾄて恥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽpｿｽxｿｽｿｽｿｽwEncodingｿｽxｿｽｿｽｿｽｿｽｿｽｿｽﾅ茨ｿｽｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200404/04040020.txt
ｿｽｿｽｿｽｿｽｿｽｿｽﾘりがｿｽｿｽｿｽｿｽｿｽｿｽﾆ厄ｿｽｿｽB
ｿｽcｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾇ包ｿｽｿｽｿｽｿｽﾌ具ｿｽﾘゑｿｽﾉボｿｽNｿｽﾌ紹介しｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽ@ｿｽｿｽgｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、EncodingｿｽNｿｽｿｽｿｽXｿｽｿｽ
ｿｽgｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽｿｽｿｽcｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽ閧ｱｿｽｿｽﾈ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽBｿｽﾍてゑｿｽｿｽｿｽ(ｿｽOｿｽOｿｽG)ｿｽﾇゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
PrivateSubTest()
DimstrStringAsString="1ｿｽPｿｽQｿｽRｿｽｿｽrｿｽｿｽｿｽSｿｽTｿｽUaｿｽVｿｽWｿｽXｿｽO"
DimBytesWK()AsByte
DimsjisEncAsSystem.text.Encoding
DimstrAsString
DimnAsInteger
n=2'ｿｽﾘゑｿｽｿｽ閧ｽｿｽｿｽｿｽoｿｽCｿｽgｿｽｿｽ
sjisEnc=sjisEnc.GetEncoding("Shift_JIS")
BytesWK=sjisEnc.GetBytes(strString)
ReDimPreserveBytesWK(n-1)
str=sjisEnc.GetString(BytesWK)
str=str&"Dummy"'ｿｽﾅ鯉ｿｽｿｽ"ｿｽｿｽｿｽtｿｽｿｽｿｽﾄなゑｿｽｿｽﾆゑｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
'ｿｽｿｽｿｽｿｽ
Me.TextBox1.Text=str
str=Me.TextBox1.Text&"Dummy"
Debug.WriteLine(str)
'///ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ邇ｿｿｽｿｽﾌ会ｿｽ
DimobjEncodingAsSystem.Text.Encoding=System.Text.Encoding.GetEncoding("Shift_JIS")
DimintByteCountAsInteger=objEncoding.GetByteCount(strString)
'DimBytesWK()AsByte
'ｿｽｿｽｿｽｿｽｿｽoｿｽCｿｽgｿｽｿｽｿｽﾆの費ｿｽr
IfintByteCount>20Then
'ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
BytesWK=objEncoding.GetBytes(strString)
ReDimPreserveBytesWK(20-1)
Me.TextBox1.Text=sjisEnc.GetString(BytesWK)
EndIf
EndSub
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/10/15(ｿｽｿｽ) 17:52:19
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜでゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾅゑｿｽｿｽｿｽﾈら文ｿｽｿｽｿｽﾌ具ｿｽﾘゑｿｽｿｽ
ｿｽﾓ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽﾌ回答はコｿｽ[ｿｽhｿｽﾌ単ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽDｿｽ謔ｵｿｽｿｽｿｽ{ｿｽNｿｽﾉとゑｿｽｿｽﾄは邪難ｿｽｿｽﾈ回答でゑｿｽｿｽB
ｿｽtｿｽｿｽ 2004/10/21(ｿｽｿｽ) 14:40:54
ｿｽ謔ｭｿｽ謔ｭｿｽﾇゑｿｽﾅみゑｿｽｿｽ
ｿｽｿｽｿｽﾍ趣ｿｽｿｽﾉバｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ？
ｿｽｿｽｿｽﾄゑｿｽｿｽﾆゑｿｽValidatingｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽﾆ厄ｿｽｿｽｿｽｿｽﾈのゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾈ？
ｿｽ`ｿｽFｿｽｿｽｿｽWｿｽCｿｽxｿｽｿｽｿｽgｿｽﾈゑｿｽAｿｽLｿｽ[ｿｽｿｽｿｽﾍイｿｽxｿｽｿｽｿｽgｿｽﾈゑｿｽﾅ会ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ・ｿｽEｿｽE
Validatingｿｽｿｽｿｽﾆコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽOｿｽｿｽ髓ｼｿｽOｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽ
