vb 程序实例 适合初学者学习 在VB6.0中,每个应用程序都是从窗体(Form)开始的,窗体是构成用户接口的所有控件的容器。录活运用窗体的各项属性和操作,可以为用户设计出赏心悦目的操作界面。 1.窗体以当前屏幕分辨率全屏显示 在应用程序的编制调试过程中,用于经常用到菜单、工具条和工具框等辅助工具,一般不将窗体设为全屏显示,以便于操作;另外,当屏幕分辨率改变时,窗体可能不能正常显示,可以在窗体的Load事件中插入下列代码,即可使窗体启动时以当前屏幕分辨率全屏显示: Private Sub F
各种消息框的的应用1 创建一个DLG程序 2 添加5个新的对话框资源ID分别为:MsgBoxSimple,MsgBoxOption,MsgBoxCustom,并调整其大小使他们尺寸一样 3 为2中所添加的对话框创建新的类 class CPageSimple : public CPropertyPage class CPageOption : public CPropertyPage class CPageCustom : public CPropertyPage 保存在property.h和p
1. 如何使PB窗口总在最上层 通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST,就可以使指定窗口永远不会被其他窗口覆盖,该函数声明为: Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long dx, Long dy, Long uflag) Library “user32.dll
各位好,目前我写程序用到了通过一个access应用程序 A ,调用另一个Access应用程序 B,并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了 dim B as Access.Application B.OpenAccessProject("C:\pro\B.adp") B.DoCmd.OpenForm "from1", acNormal, , "编号='" & Me.编号 & "' ", , acWindowNormal B.Forms("form1").SetFocus D
敲代码时,突然发现有一个背景图片无法显示,百思不得其解,最终发现是MoveWindow() SetWindowPos()这两个函数的使用不当造成的。
这里把这两个函数的前世今生给分析一下。
先看MoveWindow()函数,用于改变窗口的位置和尺寸,对于顶层窗口,按照屏幕对齐与左上角,对于子窗口,则对齐与父窗口的左上角。
BOOL MoveWindow( HWND hWnd,int x, int y, int nWidth, int nHeight,BOOL bRepaint = TRU
代码如下:[DllImport(“user32.dll”, CharSet = CharSet.Auto)] private static extern int SetWindowPos(IntPtr hWnd, int hWndInsertAfter, int x, int y, int Width, int Height, int flags); /// /// 得到当前活动的窗口 /// /// [DllImport(“user32.dll”, CharSet = CharSet.A