精华内容
下载资源
问答
  • 更多相关内容
  • 今天讲解3种方法传递窗体里的数据:如有窗体“传递窗体”和“接收窗体”两个窗体,通过“传递窗体控件的值传给“接收窗体”的控件。方法一:打开窗体后,直接用打开的窗体控件值等于当前窗体控件值Forms("接收...

    Access窗体间的数据是如何传递的?前面有发过子窗体的数据传递。今天讲解3种方法传递窗体里的数据:

    如有窗体“传递窗体”和“接收窗体”两个窗体,通过“传递窗体”控件的值传给“接收窗体”的控件。

    df0e0cadde40a2821acc21e0724c6353.png

    方法一:

    打开窗体后,直接用打开的窗体的控件值等于当前窗体的控件值

    Forms("接收窗体").控件= Me.控件

    方法二:

    通过openform方法的最后一个参数openargs将值传递过去。

    openform最后参数等于文本框的值,打开“接收窗体”的open事件:控件值= Me.OpenArgs

    方法三:

    用全局变量。在模块定义一个全局变量,这里是“Public strName As String”

    再将“传递窗体”的控件值赋给strName.  然后在窗体2的加载事件中将strName赋值给“接收窗体”的控件。

    58661de0362e944a75757a79808d01ce.png

    传递窗体代码:

    Private Sub Command6_Click()

    DoCmd.OpenForm "接收窗体", , , , , , Me.Text2

    Forms("接收窗体").Text0.Value = Me.Text0

    strName = Me.Text4

    End Sub

    接收窗体代码:

    Private Sub Form_Load()

    Me.Text8 = strName

    End Sub

    Private Sub Form_Open(Cancel As Integer)

    Me.Text6 = Me.OpenArgs

    End Sub

    模块代码

    Public strName As String

    其中“传递窗体”的文本框值分别为:“Text0”,“Text2”,“Text4”

    其中“接收窗体”的文本框值分别为:“Text0”,“Text6”,“Text8”

    展开全文
  • text控件属性不包括哪一个 bd。font command bg
  • 为空白窗体添加控件

    2018-09-08 16:36:59
    //定义按钮标识符是指定一个唯一的整数值标识按钮对象,数字要不一样,名称自己定义,一般的做法是程序的头部用define语句声明一个宏常量 #define IDC_MAIN_BUTTON 101 // 按钮标识符 #define IDC_MAIN_EDIT 102...
    #include <windows.h>
    
    //定义按钮标识符是指定一个唯一的整数值标识按钮对象,数字要不一样,名称自己定义,一般的做法是在程序的头部用define语句声明一个宏常量
    #define IDC_MAIN_BUTTON	101			// 按钮标识符
    #define IDC_MAIN_EDIT	102			// 编辑框标识符
    HWND hEdit;
    
    LRESULT CALLBACK WinProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam);
    
    int WINAPI WinMain(HINSTANCE hInst,HINSTANCE hPrevInst,LPSTR lpCmdLine,int nShowCmd)
    {   //注册窗体类
    	WNDCLASSEX wClass;
    	ZeroMemory(&wClass,sizeof(WNDCLASSEX));
    	wClass.cbClsExtra=NULL;
    	wClass.cbSize=sizeof(WNDCLASSEX);
    	wClass.cbWndExtra=NULL;
    	wClass.hbrBackground=(HBRUSH)COLOR_WINDOW;
    	wClass.hCursor=LoadCursor(NULL,IDC_ARROW);
    	wClass.hIcon=NULL;
    	wClass.hIconSm=NULL;
    	wClass.hInstance=hInst;
    	wClass.lpfnWndProc=(WNDPROC)WinProc;
    	wClass.lpszClassName="Window Class";
    	wClass.lpszMenuName=NULL;
    	wClass.style=CS_HREDRAW|CS_VREDRAW;
    
    	if(!RegisterClassEx(&wClass))
    	{
    		int nResult=GetLastError();
    		MessageBox(NULL,
    			"注册窗体类失败\r\n",
    			"窗体类失败",
    			MB_ICONERROR);
    	}
    
    	//创建窗体
    	HWND hWnd=CreateWindowEx(NULL,
    			"Window Class",
    			"为窗体添加控件......",
    			WS_OVERLAPPEDWINDOW,
    			200,
    			200,
    			640,
    			480,
    			NULL,
    			NULL,
    			hInst,
    			NULL);
    
    	if(!hWnd)
    	{
    		int nResult=GetLastError();
    
    		MessageBox(NULL,
    			"创建窗体失败过程发生错误\r\n",
    			"创建窗体失败",
    			MB_ICONERROR);
    	}
    
    	//显示窗体
        ShowWindow(hWnd,nShowCmd);
    
    	//处理消息
    	MSG msg;
    	ZeroMemory(&msg,sizeof(MSG));
    
    	while(GetMessage(&msg,NULL,0,0))
    	{
    		TranslateMessage(&msg);
    		DispatchMessage(&msg);
    	}
    
    	return 0;
    }
    
    //回调函数
    LRESULT CALLBACK WinProc(HWND hWnd,UINT msg,WPARAM wParam,LPARAM lParam)
    {
    	switch(msg)
    	{
    		case WM_CREATE:
    //当一个程序创建窗体时,WM_CREATE消息会被触发,当希望做一些程序初始化工作时,可以把代码放到WM_CREATE消息处理逻辑中。
    //简单地说,本来是创建一个空白的窗体,可我不想这样,我想创建一个有内容的窗体,那你可以把你想在窗体刚刚打开时候想展示的东西的代码写进这个消息处理逻辑中
    //额外附加:WM_CREATE是windows中一个窗口消息。当一个应用程序通过CreateWindowEx函数或者CreateWindow函数请求创建窗口时发送此消息,(此消息在函数返回之前发送)。
    //产生时间是窗口创建之后显示之前,同时WM_CREATE也必须是不进队列消息。
    //例如,当要获取系统的字体时,我们可以先向这个窗口发送 WM_CREATE消息,以后字体不会改变了,程序会保存这个系统字体的消息!以后就可以用这个字体了!
    		{
    			// 创建一个编辑框
    			hEdit=CreateWindowEx(WS_EX_CLIENTEDGE,//编辑框四周立体边框
    				"EDIT",               //编辑框类型,BUTTON和EDIT都是Win32API内置的预定义的类型
    				"",   //也可以在此处设置初始文本,就是框里面显示的文字
    				WS_CHILD|WS_VISIBLE|
    				ES_MULTILINE|ES_AUTOVSCROLL|ES_AUTOHSCROLL,          //参考https://msdn.microsoft.com/zh-cn/library/czada357.aspx
    				30,  //横坐标
    				30,  //纵坐标
    				200, //宽
    				100,  //高
    				hWnd,
    				(HMENU)IDC_MAIN_EDIT,  //IDC_MAIN_EDIT编辑框的标识符,前面已定义了;(HMENU)是菜单句柄,在WinDef.h中定义。
    				GetModuleHandle(NULL),             //GetModuleHandle函数的作用是返回指定模块名的句柄,如果为NULL,则返回本模块的句柄。
    				NULL);
    
    			HGDIOBJ hfDefault=GetStockObject(DEFAULT_GUI_FONT);//设置字体
    			SendMessage(hEdit,
    				WM_SETFONT,             //当绘制文本时程序发送此消息得到控件要用的颜色
    				(WPARAM)hfDefault,
    				MAKELPARAM(FALSE,0));
    
    //如果想一开始在编辑框显示点什么,可以用SendMessage()函数产生一条窗体消息,当然你也可以在前面第三个参数设置初始文本
    //函数原型:LRESULT SendMessage(HWND hWnd,UINT Msg,WPARAM wParam,LPARAM IParam)
    //更多参考https://blog.csdn.net/lunkay/article/details/50519685
    			SendMessage(hEdit,
    				WM_SETTEXT,     //设置窗体文本消息,对于编辑框(Edit)来说,此消息字符串用于设置文本框内容
    				NULL,
    				(LPARAM)"用户在这里输入文本并编辑...");
    
    
    			// 创建一个按钮,也可以像文本框一样在开头声明HWND hWndButton
    			HWND hWndButton=CreateWindowEx(NULL,                      //第一个参数表示窗体(按钮)的扩展风格,设置为NULL
    				"BUTTON",               //窗体类型,按钮
    				"确定",                  //指向窗体(按钮)标题的指针
    				WS_TABSTOP|WS_VISIBLE|              //参考https://msdn.microsoft.com/zh-cn/library/czada357.aspx
    				WS_CHILD|BS_DEFPUSHBUTTON,
    				50,
    				150,//大于130,因为前面有个文本框,30+100,所以这个按钮的纵坐标要大于130,要不会重叠
    				100,
    				24,
    				hWnd,               //设置父窗口的句柄
    				(HMENU)IDC_MAIN_BUTTON,//按钮的标识符
    				GetModuleHandle(NULL),          //对于按钮不是必须的,可设为NULL
    				NULL);                       //对于按钮不是必须的,可设为NULL
    
    			SendMessage(hWndButton,
    				WM_SETFONT,
    				(WPARAM)hfDefault,
    				MAKELPARAM(FALSE,0));                      //makelparam和makewparam都是一样的 将两个word型合并成一个dword型。一个在高16位,一个在低16位
    		}
    		break;
    
    		case WM_COMMAND:               //WM_COMMAND,程序代码,在窗口菜单程序中使用。 //窗口菜单 或子窗口控件产生的消息
    			switch(LOWORD(wParam))        //LOWORD(wParam):菜单id
                {
    				case IDC_MAIN_BUTTON:            //点击了这个按钮会干嘛
    				{
    					char buffer[256];
    					SendMessage(hEdit,
    						WM_GETTEXT,         //应用程序发送此消息来复制对应窗口的文本到缓冲区
    						sizeof(buffer)/sizeof(buffer[0]),
    						reinterpret_cast<LPARAM>(buffer));
    // reinterpret_cast    C++里的强制类型转换符。
    //reinterpret_cast<type-id> (expression)
    //type-id 必须是一个指针、引用、算术类型、函数指针或者成员指针。它可以把一个指针转换成一个整数,也可以把一个整数转换成一个指针(先把一个指针转换成一个整数,再把该整数转换成原类型的指针,还可以得到原先的指针值)。
    					MessageBox(NULL,             //窗口句柄
    						buffer,                    //消息框内显示的文本消息
    						"信息提示",          //消息框的标题
    						MB_ICONINFORMATION);        //消息提示图标
    				}
    				break;
    			}
    			break;
    
    		case WM_DESTROY:
    		{
    			PostQuitMessage(0);
    			return 0;
    		}
    		break;
    	}
    
    	return DefWindowProc(hWnd,msg,wParam,lParam);
    }

     

    效果:

    在里面输入漫步云端

    然后点击确定

    展开全文
  • XP控件command

    2009-06-09 18:14:04
    让你的窗体拥有像XP一样的风格。TGcommand ,TGBOX,TGlist
  • 文章目录创建主菜单(菜单栏+菜单+菜单项)创建下文菜单(弹出式菜单)创建一个选项菜单 创建主菜单(菜单栏+菜单+菜单项) import tkinter root = tkinter.Tk() menu = tkinter.Menu(root)#实例化菜单栏对象 ...

    创建主菜单(菜单栏+菜单+菜单项)

    import tkinter
    root = tkinter.Tk()
    menu = tkinter.Menu(root)#实例化菜单栏对象
    submenu = tkinter.Menu(menu, tearoff=1)#实例化菜单对象,tearoff设置为1后,表示菜单是可以独立出来的
    submenu.add_command(label="打开")
    submenu.add_command(label="保存")
    submenu.add_command(label="关闭")
    menu.add_cascade(label="文件", menu=submenu)#菜单栏对象添加菜单对象
    
    submenu = tkinter.Menu(menu, tearoff=0)
    submenu.add_command(label="复制")
    submenu.add_command(label="粘贴")
    submenu.add_separator()#菜单项之间的分割线
    submenu.add_command(label="剪切")
    menu.add_cascade(label="编辑", menu=submenu)#添加分层菜单项
    
    submenu = tkinter.Menu(menu, tearoff=0)
    submenu.add_command(label="关于")
    menu.add_cascade(label="帮助", menu=submenu)
    
    root.config(menu=menu)#需要使用主窗口的config()方法将菜单栏对象添加的窗口
    root.mainloop()
    
    

    输出:
    在这里插入图片描述

    创建上下文菜单(弹出式菜单)

    # -*- coding:utf-8 -*-
    #
    import tkinter 
    root = tkinter.Tk()
    menu = tkinter.Menu(root, tearoff=0)
    menu.add_command(label="Copy")
    menu.add_command(label="Paste")
    menu.add_separator()
    menu.add_command(label="Cut")
    def popupmenu(event):
        menu.post(event.x_root, event.y_root)
    root.bind("<Button-3>", popupmenu)
    root.mainloop()
    
    

    创建一个选项菜单

    from tkinter import *  
      
    master = Tk()  
      
    variable = StringVar(master)  
    variable.set("one") # <em>default value</em>  
      
    w = OptionMenu(master, variable, "one", "two", "three")  
    w.pack()  
      
    mainloop()  
    
    
    展开全文
  • 话题:名称为form1的窗体上添加一个名称为shape1的形状控件,通过设置回答:添加3个控件后,以下码:Option ExplicitPrivate Sub Form_Load()Label1.Caption = "参数:"Label1.AutoSize = TrueText1.MaxLength = ...
  • Windows窗体原理及控件重绘技巧

    千次阅读 2018-01-29 11:42:21
    之前有学MFC的同学告诉我觉得Windows的控件重绘难以理解,就算重绘成功了还是有些地方不明白,我觉得可能很多人都有这样的问题,这里我从Windows窗体的最基本原理来讲解,如果你有类似的疑惑希望这篇文章可以帮你...
  • VBA窗体控件初接触(2):

    千次阅读 2020-03-10 09:04:52
    我学到现在才发现控件分类不是...窗体控件 代码设置优先级更高,尽量少用属性栏,而是用代码设置, 很多属性,既可以属性栏设置,也可以 除非一些属性,代码几乎不会用到 或者一些麻烦的属性,比如pictur...
  • VBA窗体控件初接触(1):

    千次阅读 2020-03-05 15:52:51
    1 窗体 form 1.1创建窗体 form (默认名:userform) 和插入模块一样,插入用户窗体即可 1.2 如何运行/显示 窗体? 1.2.1 显示窗体的代码方法 据说,单写一句 userform1.show 也是可以的,因为VBE会自动先 load ...
  • Tkinter Button控件command传参

    千次阅读 2021-12-20 11:12:31
    根对象:那个窗体显示,例如主窗体。 属性列表:是可选的属性=属性值组成。 属性 说明 text 标签显示的文本 font 设置文本的字体和大小 fg(foreground) 字体的颜色, bg (background) ...
  • VB实现圆角窗体

    2014-08-07 22:56:05
    经过实测可以使用,VB圆角窗体,大伙多多下载把
  • 选中整个窗体,找到属性AutoScaleMode 设置成None,就好了
  • ArcEngine Command控件

    2017-06-21 11:39:59
    ArcEngine类库中有大量的Command控件用来与地图控件进行操作和交互。比如有一系列的地图浏览控件、地图查询控件、图斑选取控件、编辑控件来与MapControl和PageLayoutControl进行交互。这些控件被包含ESRI.ArcGIS...
  • vb中获access窗体的属性及窗体控件的属性。 代码如下: Private Sub Command1_Click() Dim accApp As Access.Application Set accApp = New Access.Application accApp.Visible = False accApp....
  • 时 间:2020-03-27 12:02:03作 者:摘 要:如何Access窗体中显示指定路径的图片?正 文:Access中,如果把图形对象以OLE格式的字段保存,那么在窗体中可以直接显示出图片来。但是这样做有以下不足:一、需要将...
  • 窗体命令按钮打开表

    2021-06-24 08:07:03
    access窗体中添加命令按钮,单击打开报表,请问需要设置为DoCmd.OpenReport "报表名", acViewPreview view 下列固有常量之一: acViewDesign acViewNormal(默认值) acViewPreview 如果该参数空缺,将假设为默认...
  • Dim cmd As New ADODB.Command Dim rst As New ADODB.Recordset Dim Sqlser_time cnn.ConnectionString = "driver={SQL Server};" & _ "server=server;uid=sa;pwd=;database=master" cnn.Open cmd....
  • VB演示如何加载窗体事件的例子,演示当窗体事件发生后就在窗体上输出内容,附代码下载:  Private Sub Form_Load()  Show  Print "输出字符串"  '窗体加载事件发生后就在窗体上输出内容  Text1.Text = ""  '...
  • 深入Windows窗体原理及控件重绘技巧

    万次阅读 多人点赞 2013-12-29 13:46:35
    之前有学MFC的同学告诉我觉得Windows的控件重绘难以理解,就算重绘成功了还是有些地方不明白,我觉得可能很多人都有这样的问题,这里我从Windows窗体的最基本原理来讲解控件的WM_DRAWITEM重绘和子类化重绘,如果你...
  • Option Explicit On ...'窗体最大化定义 Private FormOldWidth As Long '原始宽度 Private FormOldHeight As Long '原始高度 Public Sub ResizeInit(FormName As Form) Dim Obj As Control FormOldWidth = ...
  • 先用SqlConnection建个连接然后创建SqlCommand对象利用 SqlDataReader 来读取数据Connection是连接,用来连接数据库服务器或者数据库文件打开一个数据查询通道Command是命令,用来执行Tsql语句或者存储过程,可以...
  • 如何 Access 2007 的窗体中实现点击按钮打开另一...接着,【空白窗体】菜单下,鼠标左键单击【命令】按钮控件,如下图所示。然后,窗体】窗口中,绘制出命令按钮。Access点击按钮后,打开一个新的窗体,并且...
  • python tkinter简单窗体常用控件介绍

    千次阅读 2018-07-21 17:00:21
    bar.configure(command=lb.yview) # 布局listbox lb.pack(expand=YES, fill=BOTH) # 进入消息循环 win.mainloop() 大功告成!测试下listbox的和bar的合作 可惜聚焦的一直都是第一行,虽然可以lb.insert...
  • 自定义控件如何获取父窗体句柄

    千次阅读 2018-03-05 15:22:25
    想父窗体发送消息时遇到了困难,不知道如何获取父窗体的句柄,以及控件的ID。通过两个函数来分别获取控件ID以及父窗体句柄。void CPictureContorl::OnRButtonUp(UINT nFlags, CPoint point){ // TODO: 此添加...
  • 使用下面的命令能够动态添加按钮控件数组: Dim Maxid As Integer Private Sub Command1_Click() ...可是,下次打开窗体时新添加的按钮就不存在了,如何下次打开窗体时动态添加的控件在窗体上
  • 目录第一章:WinForm基础一、概述二、VS中新建窗体程序三、窗体(Form)第二章():控件窗体一、文本编辑控件二、图片框:PictureBox三、定时器:Timer第二章(下):继续控件一、选择控件二、列表控件三、...
  • C#窗体控件与MySQL实现登录功能

    千次阅读 2020-12-16 23:37:46
    C#窗体控件与MySQL实现登录功能 1.windows窗体 控件 1 label1 2 label2 3 textBox1 4 textBox2 5 button1 6button2 代码: using System; using MySql.Data.MySqlClient; using System.Windows.Forms; ...
  • Web窗体的基本控件

    千次阅读 2012-04-26 13:18:42
    第5章 Web窗体的基本控件 与ASP不同的是,ASP.NET提供了大量的控件,这些控件能够轻松的实现一个交互复杂的Web应用功能。传统的ASP开发中,让开发人员最为烦恼的是代码的重用性太低,以及事件代码和页面代码不能...
  • Visual Studio2019和VB6.0都创建一个Form1窗体,添加一个TextBox控件。都添加一个Class1 Visual Studio2019VB代码:

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 17,283
精华内容 6,913
关键字:

在窗体上设置控件command