正文
vb.net不尝试读取或的简单介绍
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net中GetClientRect()函数的问题
对不起，我没有学过vb.net，但是学过vb，希望这个可以
解决您程序的毛病。首先您注意以下两种GetClientRect
声明的方法：
Option Explicit
Private Declare Function GetClientRect Lib "user32" ( _
ByVal hwnd As Long, _
ByRef lpRect As RECT _
) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim r As RECT
Me.AutoRedraw = True
GetClientRect Me.hwnd, r
Print r.Left
Print r.Right
Print r.Top
Print r.Bottom
End Sub
----------------------------------------------------------------------------
Option Explicit
Private Declare Function GetClientRect Lib "user32" ( _
ByVal hwnd As Long, _
ByVal lpRect As Long _
) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim r As RECT
Me.AutoRedraw = True
GetClientRect Me.hwnd, VarPtr(r)
Print r.Left
Print r.Right
Print r.Top
Print r.Bottom
End Sub
看出问题了没有，就在GetClientRect的第二个参数上：
一个是按地址传递，另一个是按值传递：
ByRef lpRect As RECT 用 GetClientRect Me.hwnd, r
ByVal lpRect As Long 用 GetClientRect Me.hwnd, VarPtr(r)
据我所知vb.net按值传递的比较多，应该用VarPtr获取RECT类型
(结构体)的指针，然后传递。
希望能对你有所帮助。
相关问答
Q1: vb.net尝试读取或写入受保护的内存。这通常指示其他内存已损坏
这说明你调用 API 传参存在问题。
首先有没有设置结构体内存对齐？
[StructLayout(LayoutKind.Sequential)] 加了吗？
COLORREF 不要用 Color 代替，用 int 代替
TCHAR cfFaceName[32] 定义为 Byte 数组也可以，带在传参前，必须初始化为 32 个长度
Q2: VB.NET读取XML节点问题。
有两种办法。
方法一、创建一个 MSXML2.DOMDocument 对象，把这个文件Load进来，按照教科书上的步骤处理。这个对象名并非唯一，依据你电脑上的MSXML版本而定。你在引用中查一下。
方法二、将这个文件当做一个普通的文本文件来处理。将它完整的读入到一个字符串中，依据节点名用Split（）函数将它分段，提取所需的内容。
两种方法都不复杂，尝试一下吧。
Q3: .net(c#或vb)在调用dll组件方法时报这种错‘尝试读取或写入受保护的内存。这通常指示其他内存已损坏。’
说明该dll不支持win7系统，根据我的经验一般说“尝试读取或写入受保护的内存”是Dll内部代码引发了异常，这种情况有两种，一是dll有BUG，二是对应操作系统不正确。
要是连接设备的Dll就到设备制造商的官网下载对应平台的dll就ok
Q4: vb.net调用C++写的DLL，提示"尝试读取或写入受保护的内存，通常指示其他内存已损坏"，哪位大神指导一下！
Public Declare Function GetCardInfo Lib " feitnccmclient.dll" (Byval personCode As string,Byval servername As string) As string
改为
Public Declare Function GetCardInfo Lib " feitnccmclient.dll" (Byref personCode As string,Byref servername As string) As string
试试
Q5: VB.net“尝试读取或写入受保护的内存。这通常指示其他内存已损坏。”
vb.net 有专门的托盘图标控件 在工具箱里直接添加一个就可以了 两行代码即可
NotifyIcon1.Icon = Me.Icon
NotifyIcon1.Visible = True
