vfb控件数组的实现原理(visual freebasic ide),64位VB6 vb7

vfb控件数组的实现原理(visual freebasic ide),64位VB6 vb7

vbnet 复制代码
Sub Form1_Command1_BN_Clicked(ControlIndex As Long, hWndForm As hWnd, hWndControl As hWnd)
   MsgBox ("Command1 ControlIndex=" & ControlIndex   & ",Command1(x).Caption =" & Command1( ControlIndex).Caption & ",hWnd=" &  Command1( ControlIndex).hWnd)  
                
End Sub

IDE下载VisualFreeBasic(软件介绍) http://wwx.yfvb.com/soft-48.htm

Case WM_COMMAND

Dim As Long IDC =LoWord(wParam) ,CODE = HiWord(wParam)

为什么可以从wParam取出IDC和CODE=BN_CLICKED消息

在Windows消息处理过程中,wParam参数是一个32位的值,其中包含了消息的附加信息。对于WM_COMMAND消息,wParam的低16位(LoWord)存储了控件的标识符(IDC),高16位(HiWord)存储了控件发送的消息代码(CODE)。

在BN_CLICKED消息中,wParam的低16位存储了按钮控件的标识符(IDC),高16位存储了按钮控件发送的消息代码(CODE)。因此,通过使用LoWord和HiWord函数,可以从wParam中提取出IDC和CODE的值。

LoWord函数用于提取wParam的低16位,返回一个无符号整数(WORD)值。HiWord函数用于提取wParam的高16位,返回一个有符号整数(SHORT)值。

所以,通过使用LoWord(wParam)和HiWord(wParam)可以从wParam中取出IDC和CODE的值。

==============================================

如果是多个窗口,也有不同的IDC区分吗?还是按照句柄?

在多个窗口的情况下,每个窗口都有自己的句柄(handle),用于唯一标识该窗口。句柄是一个整数值,可以通过调用CreateWindow或CreateWindowEx函数来创建窗口时获得。

在WM_COMMAND消息中,wParam参数的低16位(LoWord)存储了控件的标识符(IDC),用于区分不同的控件。这个标识符是在创建控件时通过指定ID参数来设置的,可以是一个整数值或者是一个预定义的常量。

因此,通过wParam的低16位的IDC值,可以区分不同的控件。而句柄则用于区分不同的窗口。在处理WM_COMMAND消息时,可以根据wParam的IDC值和句柄来确定是哪个窗口的哪个控件发送了该消息,从而进行相应的处理。========================================

vbscript 复制代码
Type Form1_Class_Form Extends Class_Form
    Command3(3) As Class_Button
    Command1(2) As Class_Button
    Declare Function Show(hWndParent***
end type    
创建控件数组,绑定到同一个事件过程。

This.Command1(2).hWnd = pWindow->AddControl("BUTTON", hWnd, 103
绑定事件:Cast(Any Ptr, @Form1_CODEPROCEDURE)
 fp->Index = 2
 
This.Command1(1).hWnd = pWindow->AddControl("BUTTON", hWnd, 104
绑定事件:Cast(Any Ptr, @Form1_CODEPROCEDURE)
 fp->Index = 1
vbnet 复制代码
Function Form1_FORMPROCEDURE(ByVal hWndForm As hWnd, ByVal wMsg As UInteger, ByVal wParam As wParam, ByVal lParam As lParam) As LResult 'Form1 窗口回调过程
   Dim tLResult As LResult
      Select Case wMsg
      
    Case WM_COMMAND
    
     
       Dim As Long IDC =LoWord(wParam) ,CODE = HiWord(wParam)
        If CODE = BN_CLICKED Then
      select case IDC
            CASE 103
            FORM1_COMMAND1_BN_CLICKED(2,hWndForm, Cast(HWND, lParam))  
            CASE 104
            FORM1_COMMAND1_BN_CLICKED(1,hWndForm, Cast(HWND, lParam))  
      END SELECT
       end if
     END SELECT 'WM_COMMAND
相关推荐
金玉满堂@bj1 小时前
PyCharm 中 Python 解释器的添加选项及作用
ide·python·pycharm
通信小小昕2 小时前
ubuntu18.04.1无法安装vscode(安装依赖无效)
ide·vscode·编辑器
七月初七淮水竹亭~17 小时前
Pycharm 报错 Environment location directory is not empty 如何解决
ide·python·pycharm
green5+11 天前
yolo11n环境配置+实例运行【wsl+pycharm+conda】
ide·pycharm·conda
Draina1 天前
在pycharm中运行sagemath脚本的配置过程
ide·python·安全·pycharm·密码学
C++ 老炮儿的技术栈1 天前
Visual Studio 2022 MFC Dialog 添加Toolbar及Tips提示
服务器·c语言·数据库·c++·ide·算法·visual studio
Skrrapper1 天前
【编程史】IDE 是谁发明的?从 punch cards 到 VS Code
c++·ide·vscode
SUNxuetian2 天前
【Android Studio】升级AGP-8.6.1,Find Usage对Method失效的处理方法!
android·ide·gradle·android studio·安卓
AllData公司负责人2 天前
实时开发IDE部署指南
大数据·ide·开源
LIN-JUN-WEI2 天前
[ESP32]VSCODE+ESP-IDF环境搭建及blink例程尝试(win10 win11均配置成功)
c语言·开发语言·ide·vscode·单片机·学习·编辑器