我们先来看看SetWindowPos函数的定义和参数：
使用API函数之前必须先在程序中声明如下：
Private Declare Function SetWindowPos Lib 'user32' (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
其中各参数的意义如下:
参数 意义
hwnd [阅读全文] [PDF]
（1）启动API浏览器，通过该浏览器复制“SetWindowPos”函数的声明语句。（2）启动Visual Basic，新建一个标准EXE工程。（3）使用“工程”|“添加模块”菜单项，添加一个新的模块文件。（4）打开模块的代码窗口，将“SetWindowPos”函数的声明语句粘贴进去。（5）打开Form1窗体的代码窗口，编写如下程序。 view plaincopy to clipboardprint? Private Sub Form_Load() retnum [阅读全文] [PDF]
BR>使用GetBitmapBits函数,将图片的颜色信息读到一个数组中,然后就对数组的数据进行扫描,使用CreateRectRgn函数生成每一个有用点的图窗体,再使用CombineRgn函数对有用的图象合并,组成所要的窗体,最后使用SetWindowRgn来设定窗体程序代码:Module1Public Declare Function GetObjectAPI Lib \"gdi32\" Alias \"GetObjectA\" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) [阅读全文] [PDF]
中用API创建窗体和VC中的步骤是一样的，只不过用IDE环境创建是把过程都封装起来，现在我们用API方式创建，大致让我们了解一个窗体的产生过程，让我们使用VB的程序员对系统的机制多一些了解.先所以下用C++创建窗体的过程：程序的入口：int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)进入后先初始化结构WNDCLASSEX wcex;调用APIRegisterClassEx,注册窗体结构，如果成功一次调用Create [阅读全文] [PDF]
么，让我们现在开始。1。新建一个VB6的标准EXE工程，然后添加一个模块，将下列代码加入新的模块中：Option Explicit Private Declare Function SetWindowLong Lib \"user32\" Alias _ \"SetWindowLongA\" (ByVal hWnd As Long, ByVal nIndex _ As Long, ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib \"user32\" A [阅读全文] [PDF]
Q聊天时的窗体自动隐藏功能，用VC 或CBC都可以很简单地实现，前几天看到有一则用CBC实现的例子，便想用VB实现一下，可惜当窗体上放满控件时，FORM的MOUSEMOVE事件不能很好地触发，所以只好用以下的笨办法，现把代码贴上，窗体上需放一TIMER控件，Interval属性为200。大伙如有好的意见，不妨贴出来，让我学习学习。Option ExplicitPrivate Declare Function GetCursorPos Lib \"user32\" (lpPoint As POINTAPI) As LongPrivate Declare Fu [阅读全文] [PDF]
有很多软件为了实现特殊的显示效果，采用非矩形的窗体，而这些窗体往往没有标题栏。想要移动一个没有标题栏的窗口是不那么容易的。下面我介绍两种在VB中采取不同原理的方法移动一个没有标题栏的窗口。 方法一 这种方法是在窗体的MouseDown、MouseUp和MouseMove等事件的处理过程中添加代码，实现在鼠标左键按下后移动时，改变窗体的Left和Top属性，实现移动无标题栏的窗体。 进入VB，把窗体Form1的BorderStyle属性设置为0-None（无标题栏），再窗体上添加一个ButtonCommand组件，用来关闭程序。代码如下： [阅读全文] [PDF]
我们先来看看SetWindowPos函数的定义和参数： 使用API函数之前必须先在程序中声明如下： Private Declare Function SetWindowPos Lib \"user32\" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 其中各参数的意义如下: 参数 意义 [阅读全文] [PDF]
------------------------------------------- 使窗体右上角的X按钮失效 ------------------------------------------- 程序说明： 本例利用API函数GetSystemMenu得到系统菜单的句柄 X按钮是系统菜单的一菜单项，然后用RemoveMenu函数 删去这一菜单项，也就是使X按钮失效了。 ------------------------------------------- 【VB声明】 Private Declare Function GetSystemMenu Li [阅读全文] [PDF]
程序代码: module1 option explicit public const gwl_wndproc = (-4) public const wm_nchittest = &h84 public const htclient = 1 public const htcaption = 2 declare function callwindowproc lib \"user32\" alias \"callwindowproca\" (byval lpprevwndfunc as long, byval hwnd as long, byval [阅读全文] [PDF]
我们先来看看setwindowpos函数的定义和参数： 使用api函数之前必须先在程序中声明如下： private declare function setwindowpos lib \"user32\" (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byval cy as long, byval wflags as long) as long 其中各参数的意义如下: 参数 意义 hw [阅读全文] [PDF]
为了学习方便，下面先给出源码，并且已经作了详细的中文注释： ------------------------------------------- 使窗体右上角的x按钮失效 ------------------------------------------- 程序说明： 本例利用api函数getsystemmenu得到系统菜单的句柄 x按钮是系统菜单的一菜单项，然后用removemenu函数 删去这一菜单项，也就是使x按钮失效了。 ------------------------------------------- 【vb声明】 private dec [阅读全文] [PDF]
凡使用过vb4以上版本的用户都会发现，与vb3相比，它提供了一个称之为插件的新特征，一个插件实际上是一个ole服务器，用于扩展vb开发环境，增强vb的功能。我们可以使用插件为vb菜单增加定制项，可管理当前激活窗体及控件，并响应多种文件控制事件。vb在samples目录的align、datawiz和spy子目录下就包含了三个这样的插件应用程序。 这里我们着重讨论datawiz下的数据窗体设计器插件。 1．数据窗体设计器插件的引入 通常，我们在使用vb数据控件设计数据窗体时，大量的时间都花在窗体的可视化设计过程上，如标签和数据装订控件的建立和对齐定位。我们设想 [阅读全文] [PDF]
在集成开发环境中，使用“工程＼添加窗体”菜单，就可以在一个工程中使用多个窗体。被设置为启动对象的窗体在程序运行之初会被自动加载和显示，但是只能在工程属性中设置一个窗体模块为启动对象。当启动对象是Sub Main过程时，要显示窗体或当显示一个窗体后再显示其他的窗体，就要考虑窗体的加载、显示、隐藏和卸载问题，，www. 。 6．3．1加载窗体 加载窗体使用Load语句。 格式：IJoad<窗体名> 功能：加载窗体到内存。 说明：加载窗体只是将这个窗体对象装入内存，但并不显示这个窗体对象。此语句只是需要在初始化时加载所有的窗体并在以后需要它们的时候显示。当V [阅读全文] [PDF]
1．建立多窗体的操作步骤 建立多窗体的操作步骤如下： (1)添加新窗体，在这个窗体上添加控件，分别设置有关属性值，再按要求编写程序。 (2)选择“文件”菜单下的“Forml另存为(A)…”命令，保存这个文件，设为Forml。 (3)再选择“工程”菜单下的“添加新窗体”命令，则能够在同一个工程文件中再建立起一个新窗体。设置有关属性；将这个窗体保存为另一个文件Form2。按照这种方法，能够在一个工程文件中建立多个窗体，，www. 。 (4)选择“文件”菜单下的“工程另存为(E)…”命令，保存工程文件，即把Forml、Form2保存在一个工程中。 2．启动窗体 如果一个 [阅读全文] [PDF]
1.重载createparams函数，设置透明风格2.然后重载它的wm_erasebkgnd消息。代码片段：.h fileclass tyourform:public tform{private:void __fastcall wmnc(tmessage &message);public:__fastcall tyourform(tcomponent *owner);begin_message_mapvcl_message_handler(wm_erasebkgnd,tmessage,wmnc);end_message_map(tform);pro [阅读全文] [PDF]
//代码来自互联网, ccrun整理 :)在form上添加一个openpicturedialog，添加一个image，并为其添加一个图片。再加一个popupmenu，并创建两个菜单项，一个是open1，一个是exit1，其中前者是打开图象文件对话框，后者为退出程序。设置image1的popupmenu属性为popupmenu1。在form1的oncreate事件中添加：void __fastcall tform1::formcreate(tobject *sender){bmptorgn();}在.h文件中的private段中添加void __fastca [阅读全文] [PDF]
全透明窗体（效果比较好）uses里加上ExtCtrlsprocedure tform1.setformtransparent;var I: Integer; FullRgn, ClientRgn, ControlRgn: THandle; Margin, MarginX, MarginY, X, Y: Integer; W,H,S :Integer; bX,bY :Integer; c :TColor; begin Margin := (Width - ClientWidth) div 2; FullRgn := Cr [阅读全文] [PDF]
1 共18条 分1页
- 单片机数码管:51单片机数码管显示的好帮手---MAX...
- 点阵显示屏:智能点阵显示屏HCMS-29xx/39xx及其应用
- 单片机教程:单片机编程入门七
- 汇编语言指令集:IBM-PC汇编语言指令集
- 数据传送指令:MCS-51数据传送指令
- 0083智能工社:浅谈足球游戏的人工智能
- 提拔将领:即时战略游戏将领指挥AI方案设想
- directinput:DirectInput 鼠标编程入门
- 实现爆炸后的振动效果
- 飞机射击类小游戏:有关飞机射击类游戏的设计原理
- 音效最好的播放器:游戏音乐和音效的播放
- 游戏调试:利用双计算机调试游戏程序
- 多任务处理:游戏中的多任务处理
- 电脑游戏中的人工智能制作
- 系统升级:角色扮演游戏的升级系统研究
- rpg游戏制作:深入RPG游戏制作—图形篇
- directdraw:通向DirectDraw的捷径
- 3d场景:如何在3D场景中加入Fog
- 游戏搜索:论游戏中的搜索问题(初级篇)
- directx如何使用:使用DirectX优化声音特性
