Vb.net MakeLong 合并整数代码

最新推荐文章于 2022-06-03 10:26:09 发布

mchudie

最新推荐文章于 2022-06-03 10:26:09 发布

阅读量415

点赞数

分类专栏： vb.net

本文链接：https://blog.csdn.net/mchudie/article/details/79252838

版权

vb.net 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

    Function MAKELPARAM(wLow As UShort, wHigh As UShort) As UInteger
        Return wHigh * &H10000 + wLow
    End Function

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

mchudie

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

程序员的内涵之基于SDK的Windows应用程序框架代码详解

跑得动就不要歇着

08-13

427

基于SDK的Windows应用程序框架代码需要注意以下几个方面： 1、必须包含头文件windows.h WINDOWS.H是一个最重要的头文件，它包含了其他Windows头文件，这些头文件的某些也包含了其他头文件。这些头文件中最重要的和最基本的是： WINDEF.H 基本数据类型定义。 WINNT.H 支持Unicode的类型定义。 WINBASE.H Kernel(内核)函数。 WI...

C# WinForm 滚动条换肤

wzk456的专栏

09-02

1565

滚动条换肤是C#WinForm中的难点，因为很多控件的滚动条是由系统来进行绘制的，所以滚动条的绘制就不得不使用大量的API函数来进行绘制。如果对API函数不熟悉的话，就很难达到自己想要的效果，而这部分本身就不是C#的强项，所以网上使用C++重绘滚动条的例子很多，但用C#写的确很少。在看过这篇文章后，如果您有什么好的意见和建议，请在下面留言。先看一下效果图：

参与评论您还未登录，请先登录后发表或查看评论

Vb.net MakeLong MAKELPARAM 合并整数代码

weixin_30808253的博客

10-23

290

Function MAKELPARAM(wLow As UShort, wHigh As UShort) As UInteger Return wHigh * &H10000 + wLow End Function 转载于:https://www.cnblogs.com/Ghsoft/p/9835274.html

MAKELONG

aobu0171的博客

06-16

715

MAKELONG MAKELONG 是一个宏，将两个16位的数联合成一个的32位的LONG型的数 DWORDMAKELONG( WORDwLow, WORDwHigh); 参数: wLow: 32位数的低16位 WHigh:32位数的高16位在Windef.h中该宏的定义为: #define MAKELONG(a...

VB.net基础知识

chinaherolts2008的博客

06-03

2462

3.1.1 什么是常量在编程中，常常可以遇到变量和常量。顾名思义，变量就是值可以改变的量，常量是其值不可改变的量。不可以改变的量有什么用呢？事实上，在实际编程中，常量用得很少。甚至可以用变量代替常量，当然这样做的代价是降低了程序的性能。事实上，常量有很多用处。例如圆周率，如果每次需要用到的时候都把它输入一遍，效率(这里指编程效率而非执行效率)是很低的...

MAKELONG用法

Richard的专栏

10-09

4427

The MAKELONG macro creates an unsigned 32-bit value by concatenating two given 16-bit values. DWORD MAKELONG( WORD wLow, // low-order word of

MAKEWPARAM 宏及MAKELONG ，MAKELPARAM，MAKELRESULT

Qsir的专栏

08-18

2257

The WM_COMMAND message is sent when the user selects a command item from a menu, when a control sends a notification message to its parent window, or when an accelerator keystroke is translated. WM_CO

VB对指定窗口进行后台模拟键盘鼠标信息的操作

09-17

这里的`MakeLong`函数用于将两个字节合并成一个长整型数值，分别代表鼠标的X和Y坐标。在实际应用中，为了提高代码的可读性和复用性，你可以将这些操作封装到自定义的函数或模块中。例如，创建一个`Module1.bas`，...

VB6 实现WIN7任务栏的进度条

03-13

接下来，我们需要定义这些API函数的声明，以便在VB6代码中使用。在工程的模块中，添加以下声明： ```vb Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ...

VB 实现热键呼出窗体

05-21

在VB（Visual Basic）编程环境中，实现热键呼出窗体是常见的功能需求，这主要涉及到Windows API（应用程序接口）的使用以及事件处理程序的编写。下面将详细讲解如何通过VB来实现这一功能。首先，我们需要理解什么...

【语言-c#】C++中的宏定义在C#中如何表示

少莫千华

03-25

1211

C++宏定义 #define MAKEWORD(a, b) ((WORD)(((BYTE)(((DWORD_PTR)(a)) & 0xff)) | ((WORD)((BYTE)(((DWORD_PTR)(b)) & 0xff))) << 8)) #define MAKELONG(a, b) ((LONG)(((WORD)(((DWORD_PTR...

c#中蹒跚学步

mytinaonly的专栏

03-17

373

接下来的一段时间，我将记录c#的学习历程，当然从Delphi转到c#也主要是界面开发，并不代表我不会深入.net领域。我会爱上c#.net的，时间会改变一切，GO！

求助： vb 数据转成 float 方法

moyulinggdi的专栏

07-12

1329

代码如下： Option Explicit Private Type makelong l As Long End Type Private Type makesingle f As Single End Type Private Sub Form_Load() Dim tl As makelong Dim tf As makesingle tl.l =

VB6 API 创建TreeView

最新发布

09-13

在VB6中使用API创建TreeView控件，通常需要调用Windows API函数来创建并管理这个控件。TreeView是一个用于显示层次数据的控件，它允许用户展开和折叠节点来查看不同的信息级别。以下是使用API创建和操作TreeView控件的基本步骤： 1. 首先，你需要在你的VB6项目中声明所要使用的Windows API函数。这包括创建TreeView控件的函数`CreateWindowEx`，以及其他用于操作TreeView控件的函数，比如添加节点、设置节点属性等。 2. 接下来，使用`CreateWindowEx`函数创建TreeView控件。这个函数需要很多参数，包括窗口类名、窗口标题、样式、位置坐标、尺寸等。 3. 创建好TreeView控件后，你可以使用`SendMessage`函数发送消息来添加和管理节点。例如，使用`TVM_INSERTITEM`消息来添加根节点，然后使用`TVM_INSERTITEM`或`TVM_SETITEM`来添加子节点。 4. 通过`SendMessage`函数发送不同的消息和参数，可以实现对TreeView控件的详细控制，比如展开和折叠节点、更改节点图标、设置节点文本等。范例代码如下： ```vb Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" ( _ ByVal dwExStyle As Long, _ ByVal lpClassName As String, _ ByVal lpWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hWndParent As Long, _ ByVal hMenu As Long, _ ByVal hInstance As Long, _ ByVal lpParam As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Const TVM_INSERTITEM = &H1100& ' 创建TreeView控件 Private Function CreateMyTreeView(hParent As Long) As Long Dim hTreeView As Long Dim style As Long style = WS_CHILD Or WS_VISIBLE Or WS_BORDER Or WS_TABSTOP Or TVS_HASLINES Or TVS_HASBUTTONS Or TVS_SHOWSELALWAYS ' 创建TreeView控件 hTreeView = CreateWindowEx(0, "SysTreeView32", "", style, 0, 0, 100, 100, hParent, 0, App.hInstance, 0) If hTreeView = 0 Then MsgBox "无法创建TreeView控件" Exit Function End If ' 返回TreeView控件的句柄 CreateMyTreeView = hTreeView End Function ' 添加一个根节点 Private Function AddRootNode(hTreeView As Long, text As String) As Long Dim tvi As TVITEM tvi.mask = TVIF_TEXT Or TVIF_IMAGE Or TVIF_SELECTEDIMAGE Or TVIF_PARAM tvi.pszText = StrPtr(text) tvi.cchTextMax = Len(text) tvi.lParam = 0 ' 发送消息添加节点 AddRootNode = SendMessage(hTreeView, TVM_INSERTITEM, 0, ByVal MakeLong(0, VarPtr(tvi))) End Function ' 使用示例 Private Sub Form_Load() Dim hTreeView As Long hTreeView = CreateMyTreeView(Me.hwnd) ' 假设是当前表单 If hTreeView <> 0 Then ' 添加根节点 Dim rootNode As Long rootNode = AddRootNode(hTreeView, "根节点") End If End Sub ``` 上述代码仅展示了如何创建一个TreeView控件以及如何添加一个根节点的示例。实际使用时，你可能需要添加更多的代码来处理节点的展开、折叠，以及子节点的添加等。