1樓：網友
樓上的**只能得到首字母桐襲，想要做個完美的，需要有個字典陣列，每個漢字都有對應的拼音，如果是多音字，還需要根據上下局鏈兄文確定喚此拼音。
2樓：沙慧月
我自己做了乙個ocx'控制項，御頃做可以輸入一大段乎鏈中文後可輸出它的拼音，但前提是電腦可以聯網。
呼叫方式。private sub command1_click()py1.輸入字元 = 你想鎮衡要的文字"
msgbox py1.輸出字元。
end sub
vb6.0怎樣實現漢字的拼音如text1輸入「拼音」或「拼yin」就msgbox(pinyin)，
3樓：網友
如果需要，留下郵箱，我發給你工程檔案和網上下的那張**。
4樓：手機使用者
銀霜。銀白色的霜的意思吧。
vb漢字轉拼音！！緊急！！
5樓：
好像沒有這樣的，不過你可以做乙個讀取檔案的程式，當然為了方便，你可以事先寫乙個程式：介面上放二個文字框，乙個按鈕，第乙個文字框裡寫你要編碼的字，第二個框內寫編碼即拼音，然後按鈕用來用兩個文字框內的字元存入乙個檔案，然後反過來做乙個程式，就是寫一輸入乙個字，然後點查詢，在第二框內出讀出檔案的字元編碼，我以前寫過，非常簡單。
你寫下試試吧，其實就是檔案的讀取，如果你會資料庫的話用資料庫就更好了。
6樓：網友
目前還沒有這樣的控制項，你可以去下個漢字拼音資料庫，通過查詢得到漢字的拼音。
7樓：網友
之前剛做了乙個提取漢字首字母的。。跟你的要求，稍微有點不一樣，你自己修改吧，發給你了。
vb中如何實現提取中文拼音
8樓：網友
'wtoa是把中文字串轉換成首字母的函式'你可以新建乙個文字框和按鈕試一下。
function wtoa(byval word as string) as string
dim i as integer, j as integer, k as integer
const s = "a阿b芭c擦d搭e蛾f發g噶h哈j擊k喀l垃m媽n拿o哦p啪q期r然s撒t塌w挖x昔y壓z匝"
for j = 1 to len(word)k = asc(mid(word, j, 1))for i = len(s) to 1 step -2if k >= asc(mid(s, i, 1)) thenwtoa = wtoa & mid(s, i - 1, 1)exit for
end if
nextnext
end function
private sub command1_click()d = replace(, "四川公司", "")d = replace(d, "加油站", "")msgbox wtoa(d)
end sub
9樓：網友
將每個漢字的漢語拼音的首字母儲存到資料庫裡面。資料庫兩個欄位乙個村漢字，乙個村拼音首字母。然後擷取使用者字串，跟資料庫中村漢字的欄位進行比對。找到了就返回乙個拼音字母就ok了。
vb6.0中，設定2個輸入框text1，text2。如果text1未輸入（為空）該如何用**表達
10樓：網友
if len(text1)=0 then
end if
對比文字長度比對比文字內容要快多了！這種情況肯定是用len(sting)這種方式對比嘛。而為什麼要直接用text1而不使用也是因為執行速度的問題，用text1比用快大約40%。
11樓：網友
if = "" then
msgbox "文字框1內無內容！", vbinformation, "提示"
end if
12樓：網友
if "" then msgbox "沒有內容"
才是文字框的內容。
vb6.0 msgbox函式使用方法
13樓：網友
兄弟，**脫離不了事件。也就是說，你的**光禿禿一片，不放在某個事件裡面是不行的。
這樣修改就可以了。
private sub form_load()msgbox "你好"
end sub
14樓：網友
msgbox "你好", vbokcancel這句話，沒有問題；
msgbox("確實要退出嗎？",52,"提示")去除括號就可以了，加括號就要這樣。
dim x as integer
x=msgbox("確實要退出嗎？",52,"提示")
15樓：
你到底想幹什麼啊。
又不說清楚。
算了告訴你些。
自己看是什麼。
msgbox "內容 ", vbcritical, "標題"
是顯示錯誤對話方塊。
if msgbox("內容", vbokcancel, "標題") = vbok then
點ok的事件)
else點cancel的事件)
end if
vb6．0怎麼驗證文字框中內容是否為漢字？
16樓：匿名使用者
樓上說的對，漢字的ascii碼的值全是負數，可以在text控制項的keypress事件中判斷ascii碼是否為負。**樓上已經給出我就不寫啦。
17樓：匿名使用者
這樣就可以了private sub command1_click() dim i, t for i = 1 to len( t = mid(, i, 1) if asc(t) <0 then ' 在vb中，中文的ascii值總是負值 msgbox t, 0, "漢字" end if next end sub
vb6.0 combobox漢字拼音首字母過濾 例如輸入zg combobox就會拼音首字母是zg的詞語，例如 中國
18樓：網友
這個功能非常不容易的，大致的流程如下。
1，combobox 設定為（重要）
2， 首先收起combobox（必要）
在文字框中，輸入過濾字元時，迴圈combobox的記錄，將滿足條件的記錄存放到陣列，並且記錄滿足條件的記錄的數量。
然後，清空combobox
3 ，陣列（滿足條件的記錄）不為空，則將陣列中的記錄賦值給combobox，下拉框。
如果 陣列（滿足條件的記錄)為空，則收起combobox,重新載入所有記錄。
該功能在 路之遙軟體網 中經常被使用，可以檢視下。
vb6 0 FOR迴圈語句，vb6 0有沒有中途跳出當前for迴圈，進行下次迴圈？
dim i as integer,d1 as integer,d2 as integer,d3 as integer,d4 as integer dim str1 as string dim str2 as string private sub form load command1.caption ...
vb6 0中，picture背景顏色名稱怎麼拼？比如藍色 綠色 淺藍 淺綠之類的？越多越好
vbyellow 殲陵 vbgreen vbblue vbwhite vbblack 物派 rgb ,, 罩改賀 rgb ,, rgb ,, rgb括號內數值 都可設定。求各種顏色命名，比如 浪漫粉 雪峰白 風鈴紫 柳絮白 孔雀藍 香芋紫這樣的 越多越好 浪漫粉 雪峰白 風鈴紫 柳絮白 孔雀藍 香芋...
vb中,閏年怎麼表示，vb6 0中,閏年判斷 如何表示
閏年是我們生活中再平常不過的事了。不過你知道它是怎麼計算的嗎？閏年公式如下 若公立年可以被 4 整除,則很有可能為公立年,除非.這個公立年可以被 100 整除,但是不可以被 400 整除,就不是閏年 測試程式及模組如下 public function isleapyear yr as integer...