精华内容
下载资源
问答
  • 在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:Private Sub Command1_Click()For i=1 ...
    千次阅读
    2021-03-15 16:22:25

    在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4If i=1 Then x=iIf i<=4 Then x=x+1Print xNext iEnd Sub程序运行后,单击命令按钮,其输出结果为______。

    更多相关问题

    下述关于常压锅炉的说法中,正确的是()。

    成人呼吸窘迫综合症的特征是

    599. 地形显示将DEM细分成子网格,再进一步细分为多边形面片,以便下一步绘制处理。

    成人呼吸窘迫综合症的特征是

    外汇汇率的标价方法通常可分为( )与( )

    作为银行卡,芯片卡相比于磁条卡具有容量更大、不易损坏的优势。

    风险投资人的主要职能是控制风险资本的运作,是风险投资流程的核心环节,风险投资人大致可以分为()

    13.一般纳税人因销售货物退回或者折让而退还给购买方的增值税税额,应从发生销售货物退回或者折让当期的销项税额中扣减。( )

    信用保障额度与下列哪些因素有关( )(3.0分)

    对于前厅部来说,( )是对客服务全过程的一个关键阶段。

    9. In a ________ of rage he tried to kill his own brother.

    覆盖与重载相似,均是Java“继承”的体现。

    编A律13折线8位码,设最小量化间隔单位为1⊿,已知抽样脉冲值为+321⊿和-2100⊿。试求:(1)此时编码器输出的码组,并计算量化误差;(2)写出于此相对应的11位线性码。

    测量的可靠性、有效性和客观性统称为测量的科学性。() (2.0分)

    (2017永州) David, ______make trouble at home.

    成人呼吸窘迫综合症的特征是

    信用保障额度与下列哪些因素有关( )(3.0分)

    取消上次滤镜操作的快捷键是 (3.0分)

    执行下列程序,输出结果为

    下列指标中,属于相对数的是( )

    Windows Word中,要对某段文字进行修饰,正确的做法是( )。

    需要指出的是,一国实行自由贸易政策,就意味着完全的自由。

    心灵哲学的基本内涵?

    34.血栓被肉芽组织取代的过程称

    下列哪些是“连音符”形式()

    (2017永州) David, ______make trouble at home.

    请按顺序逐字默写《茅屋为秋风所破歌》全文(标点符号不用默写),每空一个字。

    国内某知名电视生彦企业采用SWOT分析法,分析企业面临的内外部环境,并进行战略选择。该企业不断收购中小电视生产企业,扩大企业生产规模;加强内部成本控制,降低产品价格,成为行业中的成本领先者;同时,该企

    5摩尔的物质含多少粒子?

    已知 HCOOH 在 298K 时, K a = 1.8 × 10 -4 ,则其共轭碱为 共轭碱的 K b = 。

    要严格的把握婴儿的喂奶量,5个月大的婴儿每次喂奶量的平均值应为210ml左右。

    从本质上讲,甩镜头属于

    从本质上讲,甩镜头属于

    已知英文小写字母d的ASCII码为十进制数100,则英文小写字母h的ASCII码为十进制数

    陪客人一齐乘车时,通常应请客人坐在主人的 __________ 侧。小车的座次安排也有讲究:有司机时,后排__________为上。车主当司机时__________ 为首;车主为司机并有太太

    原创文章,作者:伸手学吧,如若转载,请注明出处:http://www.dijiuxiaoxue.com/list14/2789021.html

    更多相关内容
  • 话题:在名称为form1窗体添加一个名称为shape1的形状控件,通过设置回答:添加3个控件后,以下码:Option ExplicitPrivate Sub Form_Load()Label1.Caption = "参数:"Label1.AutoSize = TrueText1.MaxLength = ...

    公告: 为响应国家净网行动,部分内容已经删除,感谢读者理解。

    话题:在名称为form1的窗体上添加一个名称为shape1的形状控件,通过设置回答:添加3个控件后,以下码:Option ExplicitPrivate Sub Form_Load()Label1.Caption = "参数:"Label1.AutoSize = TrueText1.MaxLength = 5Text1.Text = "圆形"End SubPrivate Sub Text1_Change()Select Case Text1.TextCase "矩形"Shape1.Shape = 0Case "正方形"Shape1.Shape = 1Case "椭圆形"Shape1.Shape = 2Case "圆形"Shape1.Shape = 3Case "圆角矩形"Shape1.Shape = 4Case "圆角正方形"Shape1.Shape = 5End SelectEnd Sub说明:改变Shape控件的Shape属,可以使得Shape绘制不同图形:Opject.Shape = 常数Shape属的常数与图形形状对应如下:常数 设置值 形状描述 VbShapeRectangle 0(缺省值) 矩形 VbShapeSquare 1 正方形 VbShapeOval 2 椭圆形 VbShapeOval 3 圆形 VbShapeRoundedRectangle 4 圆角矩形 VbShapeRoundedSquare 5 圆角正方形

    话题:在窗体添加一个shape控件和定时控件,每隔1秒钟修改shape控件的回答:Private Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()RandomizeShape1.Shape = Int(Rnd * 6)Shape1.FillStyle = Int(Rnd * 8)End Sub

    参考回答:设置timer.interval =1000在时钟中用随机函数生成属值,关键是怎么让随机函数返回属的值域,计算公式是:Int((最大值 - 最小值 + 1) * 随机数 + 最小值)。别老惦记着给你段现成的码,自己去编,有利于提高成绩。话题:“在shape1中添加7个shape控件,设置名称为shape2的控件数组”是回答:好久没做过了,大概是你下画一个控件shape1,再在1中话shape2,2,在,这个时候就会问你是否建立控件数组,点击是即可。一直到七个话题:VB中使用shape控件画图形显示在窗体上要怎么做?回答:在窗体上添加Shape控件设置它的Shape 属,就可以了;Shape1.Shape=0 '(缺省值)矩形Shape1.Shape=1 '正方形 Shape1.Shape=2 ' 椭圆形Shape1.Shape=3 '圆形Shape1.Shape=4 '圆角矩形Shape1.Shape=5 '圆角正方形

    话题:C#winform 怎么做一个形状不则的控件回答:C# code?using System;using System.ing;using System.ing.ing2D;using System.Windows.Forms;namespace MYLOVE{ public class BitmapRegion { public BitmapRegion() { } /// /// Create and apply the region on the supplied cool /// 创建支持位图域的控件(目前有button和form) /// /// The Cool object to apply the region to控件 /// The Bitmap object to create the region from位图 public static void CreateCoolRegion(Cool cool, Bitmap bitmap) { // Return if cool and bitmap are null //判断是否存在控件和位图 if (cool == null || bitmap == null) return; // Set our cool''s size to be the same as the bitmap //设置控件大小为位图大小 cool.Width = bitmap.Width; cool.Height = bitmap.Height; // Check if we are dealing with Form here //当控件是form时 if (cool is System.Windows.Forms.Form) { // Cast to a Form object //转换为FORM Form form = (Form)cool; // Set our form''s size to be a little larger that the bitmap just // in case the form''s border style is not set to none in the first place //当FORM的边界FormBorderStyle不为NONE时,应将FORM的大小设置成比位图大小稍大一点 form.Width = cool.Width; form.Height = cool.Height; // No border //没有边界 form.FormBorderStyle = FormBorderStyle.None; // Set bitmap as the background image //将位图设置成窗体图片 form.BackgroundImage = bitmap; // Calculate the graphics path based on the bitmap supplied //计算位图中不透明部分的边界 GraphicsPath graphicsPath = CalculateCoolGraphicsPath(bitmap); // Apply new region //应用新的域 form.Region = new Region(graphicsPath); } // Check if we are dealing with Button here //当控件是button时 else if (cool is System.Windows.Forms.Button) { // Cast to a button object //转换为 button Button button = (Button)cool; // Do not show button text //不显示button text button.Text = ""; // Change cursor to hand when over button //改变 cursor的style button.Cursor = Cursors.Hand; // Set background image of button //设置button的图片 button.BackgroundImage = bitmap; // Calculate the graphics path based on the bitmap supplied //计算位图中不透明部分的边界 GraphicsPath graphicsPath = CalculateCoolGraphicsPath(bitmap); // Apply new region //应用新的域 button.Region = new Region(graphicsPath); } } /// /// Calculate the graphics path that representing the figure in the bitmap /// excluding the transparent color which is the top left pixel. /// //计算位图中不透明部分的边界 /// /// The Bitmap object to calculate our graphics path from /// Calculated graphics path private static GraphicsPath CalculateCoolGraphicsPath(Bitmap bitmap) { // Create GraphicsPath for our bitmap calculation //创建 GraphicsPath GraphicsPath graphicsPath = new GraphicsPath(); // Use the top left pixel as our transparent color //使用左上角的一点的颜色作为我们透明色 Color colorTransparent = bitmap.GetPixel(0, 0); // This is to store the column value where an opaque pixel is first found. // This value will determine where we start scanning for trailing opaque pixels. //第一个找到点的X int colOpaquePixel = 0; // Go through all rows (Y axis) // 偏历所有行(Y方向) for (int row = 0; row bitmap.Height; row++) { // Reset value //重设 colOpaquePixel = 0; // Go through all columns (X axis) //偏历所有列(X方向) for (int col = 0; col bitmap.Width; col++) { // If this is an opaque pixel, mark it and search for anymore trailing behind //如果是不需要透明处理的点则标记,然后继续偏历 if (bitmap.GetPixel(col, row) != colorTransparent) { // Opaque pixel found, mark current position //当前 colOpaquePixel = col; // Create another variable to set the current pixel position //建立新变量来当前点 int colNext = col; // Starting from current found opaque pixel, search for anymore opaque pixels // trailing behind, until a transparent pixel is found or minimum width is reached ///从找到的不透明点开始,继续寻找不透明点,一直到找到或则达到图片宽度 for (colNext = colOpaquePixel; colNext bitmap.Width; colNext++) if (bitmap.GetPixel(colNext, row) == colorTransparent) break; // Form a rectangle for line of opaque pixels found and add it to our graphics path //将不透明点加到graphics path graphicsPath.AddRectangle(new Rectangle(colOpaquePixel, row, colNext - colOpaquePixel, 1)); // No need to scan the line of opaque pixels just found col = colNext; } } } // Return calculated graphics path return graphicsPath; } }} 调用方法://初始化调用不则窗体生成码将 FormBorderStyle 属设置为 None。BitmapRegion BitmapRegion = new BitmapRegion();//此为生成不则窗体或者控件的类BitmapRegion.CreateCoolRegion(this, new Bitmap(Properties.Resources.Loveheart));/话题:VB中为什么形状控件老是在图框的下面??回答:系统默认形状控件在底层,图框在顶层。如果希望 形状控件在图框上面,可在设计阶段用右键点击形状控件→置顶。或者在运行阶段使用码改变形状控件层次,码如下:Shape1.ZOrder 0 '形状控件置于顶层,Shape1.ZOrder 1 '形状控件置于底

    参考回答:展开全部 先在窗体上放上一个picturebox,然后在工具栏里单击shape,移动鼠标到picturebox内,按下鼠标左键,在picturebox内拖画出一个shape它就在picturebox上面了。

    话题:vb 中怎么实现多个窗口中的shape图像颜色统一变化?回答:添加一个模块,在其中声明一个 Public 变量存放颜色值,然后在每个窗口的Shape控件定义FillColor属的时候都使用这个变量所定义的颜色值。 例如在模块中: Public clr 在启动首窗体中:(也就是程序打开的第一个窗体) Private Sub Form_Load() clr = vbRed Shape1.FillColor = clr End Sub 在其它中: Private Sub Form_Load() Shape1.FillColor = clr End Sub 你也可以随时改变颜色值: Private Sub Command1_Click() clr=vbBlue End Sub

    参考回答:举个例吧: 假设你有N多个窗体,每个窗体上都有一个Shape1控件,现在统计改变其填充样式及填充颜色: For i = 1 To Forms.Count Forms(i - 1).Shape1.FillStyle = 2 '统一样式Forms(i - 1).Shape1.FillColor=vbRed '统一填充色为红色Next话题:在设计阶段单击窗体任何一个控件就可以在属窗口中设计窗体的属

    展开全文
  • 本文实例讲述了VC实现给窗体一个按钮添加事件的方法。分享给大家供大家参考。具体实现方法如下: 1. MainFrm.h 代码如下:// Generated message map functions 添加: 代码如下:afx_msg void OnSelectRed(); ...
  • 1[简答题] 在名称为Form1的窗休上添加一个名称为Label1的标签,字号大小四号,标题“等级考试”,如图1所示。通过设置属性使标签初始不显示。请编写适当的程序,使得运行程序时,窗体的标题立即变为“标签”,...

    1[简答题] 在名称为Form1的窗休上添加一个名称为Label1的标签,字号大小为四号,标题为“等级考试”,如图1所示。通过设置属性使标签初始为不显示。请编写适当的程序,使得运行程序时,窗体的标题立即变为“标签”,单击窗体时,显示标签,如图2所示。

    注意:存盘时,将文件保存至考生文件夹下,且窗体文件名保存为sjt2.frm,工程文件名保存为sit2.vbp。要求程序中不得使用变量,每个事件过程中只能写一条语句。

    8ccc11d021085b7f2204163b8138bcd5.png

    6b126dccea6a823b1ce6389b35118d12.png

    参考解析:

    【考点分析】本题考点有:标签的Name、Caption、Visi.ble和FontSize属性以及窗体的Caption属性。

    【解题思路】通过标签的Name、Caption和FontSize属性设置标签的名称、标题和字体大小,通过设置标签的Visible属性为False,使标签初始为不可见。编写适当的程序,在Form_Load事件过程中,窗体的Caption属性值立即变为“标签”,在Form_Click事件过程中单击窗体时,设置标签的Visible属性为True显示标签。

    【操作步骤】

    步骤1:新建一个窗体,按照题目要求建立控件并设置其属性,如表3.37所示。

    b4ae34ea49af35102ff49a29844243c3.png

    步骤2:编写程序代码。

    参考答案

    2422f25badb9d39280483cad0a9c926e.png

    步骤3:调试并运行程序,关闭程序后按题目要求存盘。

    2[简答题](1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”,名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguage1、vbLanguage2和vbLanguage3。程序运行后,如果在“编程语言”的下拉菜单中选择“C++”,则在文本框内显示“指针”;如果选择“Basic”,则在文本框内显示“对话框”;如果选择“JAVA”,则在文本框内显示“对象”。程序中不能使用任何变量,直接显示字符串。程序运行后,选择“编程语言”的“c++”选项,则界面如图26-3所示。

    79ebc93000817678bfdb2f86e0be9aca.png

    注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。

    (2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。窗体上有一个名称为Text1的文本框;两个复选框,名称分别为Check1和Check2,标题分别为“足球”和“篮球”。要求程序运行后,如果只选中Check1,单击窗体,则在文本框中显示“我的爱好是足球”;如果只选中Check2,然后单击窗体,则在文本框中显示“我的爱好是篮球”;如果同时选中Check1和Check2,单击窗体,则在文本框中显示“我的爱好是足球和篮球”;如果Check1和Check2都不选取,在单击窗体后,则在文本框中什么都不显示。程序运行选中两项时,界面如图26-4所示。

    7899ab3256fc7ab88165bc7d9aa0cf09.png

    注意:请在有“?”的地方填入正确内容,然后删除“?”及所有注释符“'”,但不能修改其他部分。存盘时不得改变文件夹和文件名。

    参考解析:

    (1)在Visual Basic中,菜单也被看做控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为1;文本框的内容由Text属性设置。根据题意,按“Ctrl+E”组合键打开菜单编辑器,在其中添加如下菜单项:

    标签名称内缩

    编程语言vbLanguage无

    C++vbLanguage1一位

    BasicvbLanguage2一位

    JAVAvbLanguage3一位

    帮助vbHelp无

    单击“确定”按钮,完成菜单编辑。再将一个文本框控件添加到窗体中,将其名称设为Text1,在代码窗口中编写如下代码:

    bd709620eba5da43d8acc54482d9c868.png

    (2)在Visual Basic中,复选按钮的标题由Caption属性设置,Value属性用来表示复选框的状态,复选框的Value属性有0、1或2三种取值,0表示未选中;1表示选中该复选框;2表示该复选框被禁止(灰色)。

    根据题意,将一个文本框控件和两个复选框添加到窗体中,文本框控件的名称设为Text1,复选框的名称分别设为Check1和Check2,Caption属性分别设为“足球”和“篮球”。双击复选框进入代码窗口,补充后的具体代码如下:

    daa1296a9b1fcfde99316be8f58faa2e.png

    3[单选题] 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

    432e6018856fbe7e093277daf2105463.png

    程序运行后,如果在输入对话框中输入2,则窗体上显示的是(  )。

    A.分支1B.分支2C.Else分支D.程序出错

    参考答案:C

    参考解析:本题考查对Case语句的使用。SelectCase.语句为分支选择语句,根据不同的条件选择不同的操作。InputBox用于获得用户的输入,以字符串格式存入变量,由于在程序运行后输入2,因此程序将执行Else分支,即输出“Else分支”。

    4[单选题] 如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是

    A.

    d4ac21902c02a9f3b9b1bf70e60d0d22.png

    B.

    38bfde78b444e1f8624946ec722d77dc.png

    C.

    c90089ae6f91e2e2c111a7c386929a8f.png

    D.

    e7b18752dcdb8bac67e49a3c569d03d9.png

    参考答案:B

    参考解析:标签控件在工具箱中的图标是B。而A是文本框控件的图标,C是按钮控件的图标,D是形状控件的图标。

    5[单选题] 有一个名称为Form1的窗体,上面没有控件,设有以下程序(其中方法Pset(X,Y)的功能是在坐标X,Y处画一个点):

    bba38d38e306a6676fd5a83e2a1b1c2c.png

    此程序的功能是(  )。

    A.每按下鼠标键一次,在鼠标所指位置画一个点

    B.按下鼠标键,则在鼠标所指位置画一个点;放开鼠标键,则此点消失

    C.不按鼠标键而拖动鼠标,则沿鼠标拖动的轨迹画一条线

    D.按下鼠标键并拖动鼠标,则沿鼠标拖动的轨迹画一条线,放开鼠标键则结束画线

    参考答案:D

    参考解析:Pset(X,Y)函数是在X,Y处画出一个点,Form_MouseDown函数中只有一个cmdmave=True,即当鼠标按下就将cmdmave赋值为True,Form Mouse-Move函数是当cmdmave为True时就执行Pset(x,y)函数,即当移动鼠标且cmdmave=True时就不断地画点,即形成一条线;而Form_MouseUp函数是将cmdmave赋为false,即松开鼠标时不再画点。故整个程序的功能是按下鼠标键并拖动鼠标,沿鼠标拖动的轨迹画一条线,放开鼠标键就结束画线。

    6[单选题] 下列叙述中正确的是(  )。

    A.在面向对象的程序设计中,各个对象之间具有密切的关系

    B.在面向对象的程序设计中,各个对象都是公用的

    C.在面向对象的程序设计中,各个对象之间相对独立,相互依赖性小

    D.上述3种说法都不对

    参考答案:C

    参考解析:面向对象的程序设计是用对象模拟问题领域中的实体,各对象之间相对独立,相互的依赖性小,通过消息来实现对象之间的相互联系。

    7[单选题] 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas,两个窗体上分别只有一个名称为Command1的命令按钮。

    3e6c54e37b30b3f436126bd35d460707.png

    Public y As Integer

    运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是(  )。

    A.1 5B.0 5C.0 0D.程序有错

    参考答案:B

    参考解析:本题考查的考点是有关变量的作用域的。本题中的y就是在标准模块中定义的全局变量,在任何一个窗体中都能应用,并在Form1中被赋值为5;x是Form1中定义的局部变量,要想在Form2中引用,必须用Form1.x格式来引用。

    8[单选题] 下列说法正确的是(  )。

    A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器

    B.只有当代码窗口为当前活动窗口时,才能打开菜单编辑器

    C.只有当某个窗体为当前活动窗体时,才能打开菜单编辑器

    D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令,打开菜单编辑器

    参考答案:C

    参考解析:VisuaI Basic关于菜单编辑的规定:只有当某个窗体为当前活动窗体时,才能打开菜单编辑器。

    9[单选题] 设有如下程序:

    2fc98a1f110350dcec49a8e9f8ccb708.png

    Printx;y

    EndSub

    运行程序,单击窗体,输出结果为

    c35ed120ee1d3797692f975c286438a5.png

    参考答案:A

    参考解析:函数传递参数有值传递和引用传递。默认是引用传递。sV(ByValnlAsInteger,nAsInteger)函数中m为值传递,n为引用传递。值传递不改变实参值。即在Form_CLick()过程中调用sV不会改变X的值。选A.。

    10[简答题] 在名称为Form1  的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Show和Hide,标题分别为“显示”、“隐藏”,请编写适当的事件过程,使程序运行时,单击“隐藏”菜单项,文本框消失;单击“显示”菜单项,文本框重新出现,程序运行后的窗体如图所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。

    58f67c94155b0066375aa622e046d37f.png

    注意:存盘时必须存放在考生文件夹下,工程文件名保存为sit2.vbp,窗体文件名保存为sjr2.frm。

    1af679b3a4a90d3241e5c7edc21c36ad.png

    参考解析:

    【考点分析】本题考点有:菜单编辑器的使用(标题、名称、内缩符号),文本框的Name、Text和Visible属性以及菜单的Click事件。

    【解题思路】文本框的Visible属性用于设置其在运行时是否可见。通过“菜单编辑器”窗口建立菜单项。

    【操作步骤】

    步骤1:新建一个“标准EXE”工程,在窗体中绘制一个文本框,在属性设置窗口中将其Name属性值设置为Textl。打开菜单编辑器,按表3.25设置建立菜单项。

    458ca04ad4f67bc0aac9a96ef04b0942.png

    步骤2:打开代码编辑窗口,在指定位置编写如下代码。

    参考答案

    Private Sub Hide_Click()

    Text1.Visible=False´当用户单击了”隐藏”菜

    单项时,则Text1不可见

    End Sub

    Private Sub Show_Click()

    Text1.Visible=True’同理,Textl可见

    End Sub

    步骤3:调试并运行程序,关闭程序后按题目要求存盘。

    展开全文
  • 空白窗体添加控件

    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);
    }

     

    效果:

    在里面输入漫步云端

    然后点击确定

    展开全文
  • 如果,Text1 和 Text2 一个窗体e69da5e6ba903231313335323631343130323136353331333332613032,那么,代码:Me.Text2 = Me.Text1如果,Text1 在窗体1中、Text2 在窗体2,那么,代码:Forms.窗体2.Text2...
  • Python创建窗体,Python添加按钮,Python添加输入框

    千次阅读 多人点赞 2021-03-16 16:17:37
    win1.title('MY main')#添加窗体名称 win1.geometry('670x470')#设置窗体大小 win1.mainloop()#执行窗体 4.弹出一个对话框 import tkinter as tk from tkinter import messagebox#需要引用messagebox win1=tk.Tk()...
  • 窗体命令按钮打开表

    2021-06-24 08:07:03
    access窗体中添加命令按钮,单击打开报表,请问需要设置DoCmd.OpenReport "报表名", acViewPreview view 下列固有常量之: acViewDesign acViewNormal(默认值) acViewPreview 如果该参数空缺,将假设默认...
  • Text1 =n End Sub 打开窗体运行后,单击命令按钮,文本框显示 A)5 B)8 C)9 D)10 (33)在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click( ) A=75 If A>60 Then I=1 ...
  • 计算机二级VB考试练习题及答案1、在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体"宋体",第二个名称为option2...
  • 一、基本操作题,请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)1在名称为Form1窗体添加一个名称为Label1,标题“口令”的标签;添加一个名称为Text1的文本框;再添加三个命令按钮,名称...
  • 自动生成VBA窗体菜单

    2010-08-16 15:23:46
    Set BackMenu_Caption = .Controls.Add("forms.label.1") '添加一个标签,显示菜单标题 With BackMenu_Caption .Accelerator = Acc .AutoSize = True .BackStyle = fmBackStyleTransparent .Caption = sCaption...
  • 2017年9月计算机二级考试VB备考题及答案2017年...在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n...
  • 如何 Access 2007 的窗体中实现点击按钮打开另一首先有4个名称分别A、B、C、D的窗体,已经建立好了。 我新建了一个空打开一个Access数据库软件,可以打开已创建好的数据库,【数据库工具】菜单下,鼠标左键...
  • 每题15分,共计30分)(1) 在名称为Form1的窗体上画一标签(名称为Label1,标题空白,BorderStyle属性1,Visible属性False)、一个文本框(名称为Text1,Text属性空白)和一个命令按钮(名称为Command1,标题...
  • python窗体表格

    2020-11-24 04:45:50
    前言上一节我们实现了明细窗体gui的搭建,并且设置了查看、修改、添加三种不同的状态,框架搭建好了,内容并没有填充,本节我们继续完善这项目,将学生信息填充进明细窗体中、填充当前学生信息1. 需求目前...
  • 1)绘制子窗体 项目新建子窗体ui文件,命名testUi.ui。 (2)新建上述窗体文件对应的ui类 建议将ui类与子窗体设置成相同的名字(testUi.h、testUi.cpp),此时testUi还是一个只包含默认构造函数和析构函数的...
  • 文章目录技术内容、新建DEVEXPRESS的RIBBON based项目1、安装SQLITE FOR EF2、添加EF拦截器的类:修改程序配置 App.config二、添加spire.doc三、完善界面1、ribbon工具栏增按钮2、添加devexpress的tabcontrol控件...
  • 1、基本操作题请根据以下各小题的要求设计 Visual Basic 应用程序 (包括界面和代码 )1 在名称为 Form1窗体添加个名称分别Frame1、Frame2 的框架,标题分别“字号”、“修饰”;Frame...
  • 一、选择题(每小题2分,共70分)下列各题A)、B)、C)、D)四个选项,只有一个选项是正确的,请将正确选项涂写答题卡相应位置上,答试卷上不得分。(1)下列选项不符合良好程序设计风格的是A) 源程序要文档化 B) ...
  • Access总结

    2018-07-05 13:51:00
    第十八周 Access期末复习题 、单项选择题 1.以下是宏m的操作序列设计:(D) 条件 操作序列 操作参数 MsgBox...
  • C# Command:操作数据库

    千次阅读 2021-01-28 11:19:50
    在上一节《C# Connection》我们讲解了 C# 语言连接数据库的方法,与数据库建立连接之后即可开始操作数据库...Command 类概述 System.Data.SqlClient 命名空间下,对应的 Command SqlCommand,创建 Sq...
  • 基本操作题,请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)1在名称为Forml的窗体添加一个名称为Com-mandl的命令按钮,其标题“移动本按钮”,如图所示。要求编写适当的事件过程,使得程序...
  • VB讲课笔记06:窗体与常用控件

    千次阅读 2018-03-10 17:24:29
    VB讲课笔记06:窗体与常用控件 一、窗体设计 窗体是VB最基本的对象,...(1)单窗体设计:应用程序只包含一个窗体,即单文档窗体。 (2)多重窗体设计:应用程序包含多个窗体,即多个单文档窗体。 (3)多...
  • 计算机二级VB考试练习题及答案1、在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体"宋体",第二个名称为option2...
  • 2017年9月计算机二级《VB》选择题题库(11)窗体上有一个名称为Textl的文本框,一个名称为CD1的通用对话框,一个标题“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:Private Sub CommanD1—Click( ...
  • 、前言 这知识学的,根本没有忘的快呀?! 是不是感觉很多资料,点收藏起来爽、看视频时候嗨、读文章当时会,只要过了那个劲,就完了,根本不记得这里面都讲了啥。时间浪费了,东西还没学到手,这是啥? 其实...
  • 问题:Java语言只允许单继承,指每个类只能有一个 ( )更多相关问题T-SQL 语句,与表达式“工资 BETWEEN 2000 AND 5000”功能相同的表达式工资>=2000 AND 工资<=5000。student表sno字段上添加主键约束,...
  • 2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(4)更新时间:2017/2/22 18:10:00浏览量:764手机版2013年3月全国...(1)在名称为Form1窗体上画一个名称为C1、标题"改变颜色"的命令按钮,窗体标...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 9,902
精华内容 3,960
关键字:

在窗体中添加一个名称为command1