专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
1.方法: SubStr() 中文化取子字串,相对Mid() Strlen() 中文化字串长度,相对Len() StrLeft() 中文化取左字串,相对Left() StrRight() 中文化取右字串,相对Right() isChinese() 检查某个字是否中文字 2.UniCode转成ByteAry Dim byteAry() As Byte Dim str5 As String Dim i As Long str5 = "这abc" byteAry = str5 For i = LBound(byteAry) To UBound [阅读全文] [PDF]
  即使是初学VB的人,对于如何用它来建立一个GUI界面的标准Windows应用程序,肯定也是胸有成竹;然而,对于如何用VB来编写字符界面的控制台程序(Console-ModeApplications),知道的人恐怕不多。有人甚至认为这是不可能的,因为VB对编写控制台程序并无内在的支持,在VB的“新建工程”对话框里没有“控制台程序”这一选项。实际上,利用Windows提供的应用程序编程接口(API),VB是能够建立控制台程序的。控制台程序与图形界面的标准Windows程序不同,它没有Windows程序所通行的窗口,其与用户的交互是基于字符界面,外观类似于“ [阅读全文] [PDF]
lass=Section1 style=\"LAYOUT-GRID: 15.6pt none\">API中VB字符串作参数传递的本质论问题背景:前几天在论坛中看到有一个提问的问题,内容是:模块中的代码:Option ExplicitPublic Declare Function GetComputerName Lib \"kernel32\" Alias \"GetComputerNameA\" (ByVal lpBuffer As String, nSize As Long) As Long’声明获取计算机名的API函数窗体中的代码:Option Ex [阅读全文] [PDF]
lic Function IsValidEmail(strEmail As String) As Boolean Dim names, name, i, c IsValidEmail = True names = Split(strEmail, \"@\") If UBound(names) <> 1 Then IsValidEmail = False Exit Function End If For Each name In names If Len(name) <= 0 Then IsValidEmail = False Exit [阅读全文] [PDF]
>假设我从Excel表格中复制了一些数据到剪贴板中,比如是这样一些信息:Allen 12Anderson 13Douglas 12Ohio 49我怎样才能把这些名字和数字读进一个数组或者一个Grid框中呢?用Clipboard.GetText(vbCFText)只能一下子读入所有数据,而我希望一个一个地读。回答:新建一个项目,在窗体上放两个label和一个command。以下是代码:Private Sub Command1_Click()  Dim vTekst$    vTekst$ = \"Allen 12 \"  vTekst$ = vTekst$ [阅读全文] [PDF]
public class StringX { /* * @Function 从指定字符串中获取最大长度存在巅倒字符串的子串 * @Parm str String 源字符串 * @Return 存在巅倒字符串的最大子串,存在多个时,仅返回最右边的一个 */ public String getMaxLenReverseString(String str) { int startIndex = -1; int lenOfReverseStr = 2; int tmp = -1; for ( int i = lenOfReverseStr; i <= str [阅读全文] [PDF]
1 共6条 分1页