If LCase(Right(strFile, 3)) = "doc" Then
checkDoc = True
Else
checkDoc = False
End If
End Function
Private Sub Command1_Click()
MsgBox checkDoc("c:\123.DOC")
End Sub
Private Sub File1_Click()
If UCase(Right(File1.FileName, 3)) = "DOC" Then Print File1.FileName
End Sub
用vb如何判断文件扩展名是否为doc,大小写不区分?需要vb代码!急需!谢谢...
Function checkDoc(strFile As String) As Boolean If LCase(Right(strFile, 3)) = "doc" Then checkDoc = True Else checkDoc = False End If End Function Private Sub Command1_Click()MsgBox checkDoc("c:\\123.DOC")End Sub
vb怎样对比字符串不区分大小写?
windows 操作系统的路径和文件名是部分大小写的。所以，完全可以将路径字符串全变成大写或小写，然后进行替换。\\x0d\\x0ap1 = InStr(UCase(Text1.Text), UCase("-s"))\\x0d\\x0aMsgBox p1\\x0d\\x0aVisual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境...
vb中区分大小写吗?说的具体些。
不区分。但是要养成良好的编码习惯，根据一定的规律，该大写，就大写，该小写，就小写，这样写出的代码可读性比较好，而且有一部分编程语言是区分大小写的，以后开发项目的时候，良好的编码习惯很重要。在利用V B进行程序设计的过程中，需要对变量、控件等进行引用，而在引用的过程当中就需要用到变量或控件...
怎样用vb的if语句写一个判断字母是否为大小写的程序?
多种方法实现：a = "A"If Asc(a) > 64 And Asc(a) < 91 Then MsgBox "大写字母"ElseIf Asc(a) > 96 And Asc(a) < 123 Then MsgBox "小写字母"Else MsgBox "非字母"End If 或 If a >= "A" And a <= "Z" Then MsgBox "大写字母"ElseIf a >= "a" And a <= "z" Th...
VB程序代码需要区分大小写和空格吗?
执行代码，变量，大小写不区分 执行代码行与行之间有空格，换行符不区分，但 空格 在进行比较或查找时就要注意空格
VB 不区分大小写
用StrComp(CommandList(0).List(5), Text2.Text, vbTextCompare)，这个不区分大小写。这个值如果是0，那么两个字符串相等，如果是－1，那么两个字符串不等。例如一个是Call一个是CALL，会判断为相等，返回0.
VB中如何实现文本查找功能?
指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现： pos=InStr(1,"abcdefg","cd")则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续...
用VB编写代码时字母分不分大小写?
不区分，如果你dim AbC 后，下面的代码中输入 abc 后自动会改成 AbC
VB链接数据库如何区分大小写
大写自动变小写不允许输入空格，在你的登录窗口和注册窗口的Text的KeyPress粘贴这些代码就行了。If KeyAscii >= 65 And KeyAscii <= 90 Then KeyAscii = KeyAscii + 32 End If If KeyAscii = Asc("")Then KeyAscii = 0 End If If KeyAscii = "13"Then Text2.SetFocus End If ...
用VB脚本编写一个大小写转换的工具
你要代码还是要EXE啊，代码：Private Sub Command1_Click()If UCase(Text1.Text) = Text1.Text Then Text1.Text = LCase(Text1.Text)Else Text1.Text = UCase(Text1.Text)End If End Sub 如要EXE找我吧。嘿...
