VB
文章平均质量分 64
xiashu
这个作者很懒,什么都没留下…
展开
-
动态翻译表列名
Sub ssCol2Chn (ByVal GridName As String, Tbl As TrueGrid)Example: On Form_Load event, call ssCol2Chn to perform conversion :- ssCol2Chn GridTitle, Form Dim tbXlate As Table Di原创 2006-11-30 16:39:00 · 380 阅读 · 0 评论 -
动态翻译窗体控件的caption
Sub ssEng2Chn (ByVal FormName As String, frm As Form)Example: On Form_Load event, call ssEng2Chn to perform conversion :- ssEng2Chn FormTitle, Form Dim tbXlate As Table Dim bt原创 2006-11-30 16:42:00 · 437 阅读 · 0 评论 -
动态翻译数据内容
Function ssEngWord2Chn (ByVal FormName As String, ByVal Word As String) As String Dim tbXlateWord As Table Dim btbOpened As Integer, OpenRetry As Integer Dim oldCursor As Integer oldCurs原创 2006-11-30 16:47:00 · 371 阅读 · 0 评论 -
设置控件的caption属性
Sub SetControlCaption (frm As Form, ByVal iControl As Integer, ByVal szCap As String, bXlated() As Integer) Dim szOldCap As String, szRightText As String Dim szNewCap As String Dim DelimAt As原创 2006-11-30 16:51:00 · 864 阅读 · 0 评论