?? 17805.html
字號:
<html> <head> <title>Re: 大概是這樣吧</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 大概是這樣吧</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by dino on August 24, 1999 at 19:40:39:<p>In Reply to: <a href="17791.html">是這樣的: 我對 textbox.text 填入 ex: &hFB40 (目前沒有字型) 所以 textbox 就顯示一空白, 我希望能用一符號來代替此一空白 如 一個 "□"</a> posted by Albert Chiu ~~~ on August 24, 1999 at 16:35:08:<p>Private Sub Text1_Change()<br>Dim i As Integer<br>Dim strByte() As Byte<br>Dim strReplace As String<p>On Error Resume Next<p>strReplace = "□"<br>Text2.Text = ""<br>strByte = StrConv(Mid(Text1.Text, Text1.SelStart, 1), vbFromUnicode)<br>Text2.Text = Hex(strByte(0)) & Hex(strByte(1))<p>If Text2.Text = "FB40" Then<br> If Text1.SelStart < Len(Text1.Text) Then<br> i = Text1.SelStart<br> Text1.Text = Mid(Text1.Text, 1, CLng(Text1.SelStart - 1)) & strReplace & Mid(Text1.Text, CLng(Text1.SelStart + 1))<br> Text1.SelStart = i<br> Else<br> Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & strReplace<br> Text1.SelStart = Len(Text1.Text)<br> End If<br>End If<p>End Sub<p>text1當輸入box<br>text2會顯示內碼以便check<p>匆忙寫的...可以跑....但 code還不精簡<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17805--><!--top: 17828--><li><a href="17828.html">Thank yor for your answer !! Do you know how to change 使用者造字檔 by VB program ?</a> <b>Albert Chiu ~~~</b> <i>09:26:10 8/25/99</i>(<!--responses: 17828-->0)<ul><!--insert: 17828--></ul><!--end: 17828--></ul><!--end: 17805--><br><hr size=7 width=75%><p></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -