vb中vbNullString的意思

xjc208 2006-11-06 06:23:38
初学VB请问vb中vbNullString的意思他和Null,''有什么区别?
...全文
718 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
keenzhao 2007-01-25
  • 打赏
  • 举报
 回复
Const vbNull = 1
VBA.VbVarType 的成员
VarType 的返回值常数


Null不是VB的
keenzhao 2007-01-25
  • 打赏
  • 举报
 回复
Const vbNullChar = ""
VBA.Constants 的成员
用于单个 Null 字符的 Basic 常数 (ASCII value 0); 等效于 Chr$(0)
keenzhao 2007-01-25
  • 打赏
  • 举报
 回复
官方定义:
Const vbNullString = ""
VBA.Constants 的成员
当调用一个外部过程，需要一个非零值的字符串时，所使用的常数
boyzhang 2006-12-06
  • 打赏
  • 举报
 回复
楼上说的对

vbnullstring<>vbnull<>null<>''

要搞清楚哟
VirtualDesktop 2006-11-27
  • 打赏
  • 举报
 回复
Null只能用于对象
vbNullString=Chr(0)
''表示为空，没有东西
rexyudl 2006-11-27
  • 打赏
  • 举报
 回复
理论上是有区别的，但是实际应用的话基本上可能区别不大。一般用到这个都上作为判断条件的，所以用起来可能区别不大。
VBNULLSTRING表示没有任何字符。
''是表示一个返回为空的字符
cangwu_lee 2006-11-27
  • 打赏
  • 举报
 回复
在 vbNullString 上面按右键，在按 D 键，你就看到 定义了。
NULL 就是之对象是什么都没有的 。
wanbotang 2006-11-27
  • 打赏
  • 举报
 回复
vbNullString表示不包含任何字符的字符串，其实就是chr$(0)
cool_man 2006-11-27
  • 打赏
  • 举报
 回复
vbNullString
并不等于""
在有些函数上有区别,但具体我也忘了,建议在系统里都用一致,不要两个一起用
cometing 2006-11-27
  • 打赏
  • 举报
 回复
sql里面好像区别比较大
yachong 2006-11-07
  • 打赏
  • 举报
 回复
个人感觉似乎只有调用API的时候才用到vbNullString
mustudent 2006-11-07
  • 打赏
  • 举报
 回复
個人看法
mustudent 2006-11-07
  • 打赏
  • 举报
 回复
沒有區別
dashi 2006-11-06
  • 打赏
  • 举报
 回复
~up
VB制作植物大战僵尸修改器
VB制作植物大战僵尸修改器 Private Sub Command1_Click() Dim hwd As Long Dim phandle As Long Dim address As Long Dim a As Long a = Text1 hwd = FindWindow(vbNullString, "PlantsVsZombies.exe") GetWindowThreadProcessId hwd, Pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid) If phandle Then ReadProcessMemory ByVal phandle, ByVal &H6A9EC0;, ByVal VarPtr(address), 4, 0& ReadProcessMemory ByVal phandle, ByVal address + &H768;, ByVal VarPtr(address), 4, 0& WriteProcessMemory ByVal phandle, ByVal address + &H5560;, ByVal VarPtr(a), 4, ByVal 0& '修改阳光数 End If CloseHandle phandle End Sub
修改桌面图标的背景程序(vb6.0代码编写)要用到Dialog1
修改桌面图标的背景程序(vb6.0代码编写)要用到Dialog1 '获取桌面的句柄 Parent = FindWindow(vbNullString, "Program Manager") Child = FindWindowEx(Parent, 0, "SHELLDLL_DefView", vbNullString) '获取桌面图标的句柄 CChild = FindWindowEx(Child, 0, "SysListView32", vbNullString) '设置桌面图标背景为透明 SendMessage CChild, LVM_SETTEXTBKCOLOR, 0, ByVal &HFFFFFFFF InvalidateRect CChild, 0, True
Vb 映射网络驱动器，可以参考一下
Vb 映射网络驱动器，可以参考一下 Vb映射网络驱动器，可以参考一下。首先设置网络共享目录，然后设置为网络驱动器。 　　带有前缀RESOURCEDISPLAYTYPE的一个常数，对资源的类型进行了定义（在网络浏览器中如何显示） 　　与网络有关的重要任务之一就是枚举，或者说获取可用网络资源的一个列表。这个结构用以定义系统的的每个网络资源 　　设为零或CONNECT_UPDATE_PROFILE。如为零，而且建立的是永久性连接，则在windows下次重新启动时仍会重新连接 　　WNetAddConnection2创建同一个网络资源的连接 　　返回值：Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息 　　lpNetResource NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType， lpLocalName （可为 vbNullString）……
VB FTP上传下载
'模板: Option Explicit Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _ (ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _ ByVal SProxyBypass As String, ByVal lFlags As Long) As Long Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _ (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUsername As String, _ ByVal sPassword As String, ByVal lService As Long, _ ByVal lFlags As Long, ByVal lContext As Long) As Long Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _ (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _ ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _ (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _ (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _ (ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _ (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long) As Long Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _ (ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long Public Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Public Type WIN32_FIND_DATA dwFilAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type '窗体: Private Sub Command1_Click() 'FTP下载 lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&) If lnginet Then lnginetconn = InternetConnect(lnginet, "219.131.192.243", 0, _ "posui", "djposui", 1, 0, 0) If lnginetconn Then blnRC = FtpGetFile(lnginetconn, "/load.txt", "c:\load.txt", 0, 0, 1, 0) If blnRC Then MsgBox "download ok!!!" End If InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox "close ok!!!" Else MsgBox "can't connect" End If Else MsgBox "ftp wrong" End If End Sub Private Sub Command2_Click() 'FTP上传 lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&) If lnginet Then lnginetconn = InternetConnect(lnginet, "219.131.192.243", 0, _ "administrator", "vai8888", 1, 0, 0) If lnginetconn Then blnRC = FtpPutFile(lnginetconn, "c:\1.txt", "/1.txt", 0, 0) If blnRC Then MsgBox "download ok!!!" End If InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox "close ok!!!" Else MsgBox "can't connect" End If Else MsgBox "ftp wrong" End If End Sub 方法2: '部件INET Private Sub Command1_Click() Me.Inet1.Execute Me.Inet1.URL, "send c:\11.txt /1.txt" '保存 End Sub Private Sub Command2_Click() Me.Inet1.Execute Me.Inet1.URL, "get /2.txt c:\2.txt" '下载 End Sub
两个枚举系统服务的例子，VB源码实现
内容索引:VB源码,其它类别,服务　　VB编写的枚举Windows系统服务的例子，压缩包内包括两个例子，一个是枚举本地计算机的服务，另一个则是枚举网络内指定计算的服务，并对枚举到服务进行分类索引，部分代码摘录： 　　建立与本地计算机的服务控制管理器的连接，并打开本地服务控制管理器数据库。 　　 hSCManager = OpenSCManager(vbNullString, _ 　　 vbNullString, _ 　　 SC_MANAGER_ENUMERATE_SERVIC
非技术类

742

社区成员

26,925

社区内容

发帖
与我相关
我的任务
社区描述
VB 版八卦、闲侃，联络感情地盘，禁广告帖、作业帖
社区管理员
  • 非技术类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章