vb6 怎么把Form 上的最大化,最小化,还有 X去掉? :) 谢谢

pantung 2005-12-01 11:49:57

如题谢谢

...全文

178 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

bbhere 2005-12-01

打赏
举报

回复

窗体属性ControlBox = False

韧恒 2005-12-01

打赏
举报

回复

ControlBox = False

starsrainmzl 2005-12-01

打赏
举报

回复

可以通过调用API来实现的

setve 2005-12-01

打赏
举报

回复

设置controlBox=false即可！

gengbs 2005-12-01

打赏
举报

回复

X号用api函数可以去掉。具体是哪个忘了

faysky2 2005-12-01

打赏
举报

回复

连标题蓝一起去掉的话：把BorderStyle属性设置为0

xxw19820907 2005-12-01

打赏
举报

回复

ControlBox = False

vb禁用窗体最大化、最小化和关闭快捷菜单，禁用最大化、最小化不可用，重点实现了禁止关闭窗口的功能，禁止后窗口上的关闭按钮变成灰色不可点击了，在实现方面，核心代码如下：　　Private Sub Form_Load() 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE//禁止关闭　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE//禁止最大化 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE//禁止最小化 　　End Sub

VB中用cmd按钮控制窗体的左右上下移动以及最大最小化

内有设计窗体的图片，和运行效果图该窗体由全图片构造，包括，标题栏，最大化、最小化、关闭按钮，一下为部分代码， Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub

这是一个相对简单的VB制作透明窗体的方法，看上去这个窗体无边框、无标题栏，也没有最小最大化及关闭按钮，完全显示了一个图片的效果，其实本代码是一个透明窗体的实现实例，特此为大家分享代码如下：　　Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _ 　　 ByVal nWidth As Long, ByVal nHeight As Long) As Long 'API函数声明　　Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _ 　　 ByVal hObject As Long) As Long'API函数声明　　Private Sub Form_Load() 　　 Dim B'声明变量　　 Me.AutoRedraw = True 　　 B = CreateCompatibleBitmap(Me.hdc, 0, 0) 　　 SelectObject Me.hdc, B'设置窗体透明　　End Sub 　　Private Sub Image1_Click() 　　End '退出　　End Sub 　　Private Sub Timer1_Timer() '计时器事件　　Dim B '声明变量　　 Me.AutoRedraw = True 　　 B = CreateCompatibleBitmap(Me.hdc, 0, 0) 　　 SelectObject Me.hdc, B'保持窗体透明　　End Sub

在Windows操作系统上，VisualBasic作为一门计算机语言，功能非常强大，而且简单易学。VisualBasic提供可视化设计工具，编程人员可利用VisualBasic提供的控件轻松的“画”出应用程序的友好界面，因此容易入门，入门以后就有能力进一步学习难度更大的编程语言。VisualBasic作为编程人员的首选程序设计语言，有如下特点： 1、VisualBasic是开发Windows应用程序的强有力的工具，使用了最先进的程序设计思想，能轻而易举的开发出符合Windows规范和风格的应用程序； 2、VisualBasic在科学计算、多媒体软件开发、网络应用等方面都有强大的功能，尤其在数据库开发方面，提供了许多控件，便于连接、查询和显示查询结果，现在很多管理软件，包括一些大型软件，都是利用VisualBasic开发的； 3、VisualBasic改变了传统的程序的机制，采用“事件驱动”方式，用户操作产生不同的事件，程序根据这些事件去分别执行不同的子程序。编程人员可以分别编写出这样一些子程序，因此使编程难度大大下降。　　在VisualBasic语言中，控件是用户界面的基本要素，是进行可视化程序设计的重要基础，它不仅关系到界面是否友好，还直接关系到程序的运行速度以及整个程序的好坏。每个控件都具有它的属性、方法和事件，设计窗体就必须很好的掌握控件的属性和应用方法。控件具有很多相同的属性，如标识控件名称的Name属性、标识控件标题的Caption属性、有效属性Enable、可见属性Visible、标识控件位置和大小的Top、Left、Width、Height、属性、定义背景色的BackColor属性、定义前景色的ForeColor属性和定义字体类型的Font属性，各个控件也有其特有的一些属性。　　VisualBasic中的控件分为两种，即标准控件（或内部控件）和ActiveX控件。内部控件是工具箱中的“常驻”控件，始终出现在工具箱里，而ActiveX控件是扩展名为.ocx的文件（在Windows\System文件夹里），它是根据变成需要添加到工具箱里的。　　在一般情况下，工具箱里只有标准控件，为了把ActiveX控件添加到工具箱里，可按以下步骤执行： (1)在菜单里选择“工程-部件”，弹出“部件”对话框； (2)在对话框中选择“控件”选项卡，显示ActiveX控件列表； (3)在列表框中找到需要添加的控件名称，单击控件名称左侧的复选框； (4)使用同样的方法选择需要添加的其它控件； (5)单击“确定”按钮，即可将所选ActiveX控件添加到工具箱里。窗体(FORM)的常用属性属性说明 (Name)窗体的名称 ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 Appearance外观效果,取值为：0 平面1 3D(立体) AutoRedraw是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为：True False BackColor背景颜色,可从弹出的调色板选择。 BorderStyle设置边界类型,取值为： 0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架) 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption窗体的标题 ClipControls决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取值为： True或False ControlBox是或有控制框, 取值为： True 有 False 无 DrawMode设定窗体上绘图(graphics方法),Shape,Line等控件的输出外观,有16种可选： 1 黑色 2 非或笔,设置值15的反相 3 与非笔,背景色以及画笔反相二者共有颜色的组合 4 非复制笔,设置值13的反相 5 与笔非,画笔以及显示色反相二者共有颜色的组合 6 反相,显示颜色反相 7 异或笔,画笔颜色以及显示颜色的异或 8 非与笔,设置值9的反相 9 与笔,画笔以及显示色二者共有颜色的组合 10 非异或笔,设置值7的反相 11 无操作,该设置实际上是不画图 12 或非笔,显示颜色与画笔颜色反相的组合 13 复制笔,用ForeColor属性指定的颜色,此为默认值 14 或笔非,画笔颜色与显示颜色反相的组合 15 或笔,画笔颜色与显示颜色的组合 16 白色 DrawStyle设定绘图相关方法使用的直线样式, 有7种可选： 0 实线,此为默认值 1 虚线 2 点线 3 单点划线 4 双点划线 5 无线 6 内部实线 DrawWidth设定绘图相关方法使用的直线宽度 Enabled是或把鼠标或键盘事件发送到窗体,取值为： True 可用 False 不可用 FillColor填充颜色, 可从弹出的调色板选择。 FillStyle填充样式, 有8种可选： 0 全部填充 1 透明,此为默认值 2 水平直线 3 竖直直线 4 上斜对角线 5 下斜对角线 6 十字线 7 交叉对角线 Font字型,可从弹出的对话框选择字体,大小和风格 FontTransparent输出数据是否允许重叠(获得或设置一个值,决定是否显示窗体,打印机或PictureBox上的背景文本/图形)。取值为： True或False ForeColor前景颜色,可从弹出的调色板选择。 HasDC决定是否为该控件分配了唯一的显示上下文。取值为： True或False Height窗体的高度 HelpContextID指定一个对象的缺省帮助文件上下文标识符 Icon为窗体设计图标,该图标位于标题栏的左端 KeyPrevier获得或设置是否在激活对象的上的控件的键盘事件之前,优先激活对象键盘事件。取值为： True或False Left窗体距屏幕左边界的距离 LinkMode获得或设置用于DDE会话的链接类型并激活连接,取值为： 0 None 1 Source LinkTopic获得或设置目标控件的源应用程序和主题 MaxButton窗体右上角最大化按钮是否显示,运行时只读, 取值为： True 显示 False 不显示 MDIChild是否为MDI窗体的子窗体, 取值为： True 为MDI窗体的子窗体 False 否 MinButton窗体右上角最小化按钮是否显示,运行时只读, 取值为： True 显示 False 不显示 MouseIcon MousePointer=99时,设定一个自定义的鼠标图标 MousePointer Moveable是否可以移动窗体, 取值为： True 可以移动 False 不可以移动 NegotiateMenus决定是否将对象的菜单合并到该窗体的菜单栏上。取值为： True或False OLEDropMode 获得或设置该对象是否能作为一个OLE放下目标, 取值为： 0 None(无) 1 Manual(手动) Palette 获得或设置一个图象,包含了当PaletteMode被设置为Custom时用于调色板的对象。 PaletteMode 获得或设置一个值,决定对于对象的控件使用哪个调色板。取值为： 0 Halftone 1 UseZOrder 2 Custom Picture 窗体背景图片 RightToLeft 文本书写是否自左向右。取值为： True False 自右向左 ScaleHeight 自定义坐标系的纵坐标轴的高度 ScaleLeft 自定义坐标系的左边界起点的横坐标 ScaleMode 获得或设置一个值,指示当使用graphics方法或可定位的控件时,自定义坐标系的单位, 有8种可选： 0 自定义 1 表示单位为twip(缇),每英寸=1440缇,每厘米=567缇 2 表示单位为point(磅) ,每英寸=72磅,每磅=20缇 3 表示单位为像素,是监视器或打印机分辨率的最小单位 4 表示单位为字符,每个水平单位为120缇,每个垂直单位为240缇 5 表示单位为in(英寸) 6 表示单位为mm(毫米) 7 表示单位为cm(厘米) ScaleTop 自定义坐标系的上边界起点的纵坐标 ScaleWidth 自定义坐标系的横坐标轴的宽度 ShowInTaskbar 窗体或MDI窗体是否出现在Windows95的任务栏。取值为： True 出现 False 不出现 StartUpPosition 窗体第一次出现的位置, 有4种可选： 0 没有指定初始位置 1 设定在所属项目的中央 2 设置在屏幕的中央 3 设置在屏幕的左上角 Tag 存储程序所需的附加数据 Top 窗体距屏幕顶部边界的距离 Visible 窗体是否可见, 取值为： True 该对象可见 False 该对象不可见 WhatsThisButton 获得或设置是否在一个窗体或MDI窗体的标题上显示"这是什么"按钮。取值为： True或False WhatsThisHelp 获得或设置是否在上下文相关帮助中, 使用Windows95帮助或主帮助窗口提供的"这是什么"弹出菜单。取值为： True或False Width 窗体的宽度 WindowStart 获得或设置一个窗体窗口运行时的可见状态, 取值为： 0 窗体正常状态 1 窗体最小状态 2 窗体最大状态

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章