编写空间后方交会程序

#include <windows.h>

#include "resource.h"

#pragma once

#include <commctrl.h>

#pragma comment(lib,"comctl32.lib")

HWND m_CTab[2]

LRESULT CALLBACK Tab1_DlgProc(HWND, UINT, WPARAM, LPARAM)

LRESULT CALLBACK Tab2_DlgProc(HWND, UINT, WPARAM, LPARAM)

BOOL CreateTabDialog(HWND hParent)

void UpdateTab(HWND hParent)

HINSTANCE hInst

LRESULT CALLBACK DlgProc(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam)

int WINAPI WinMain(HINSTANCE hInstance,

HINSTANCE hPrevInstance,

LPSTR lpCmdLine,

int nShowCmd)

{

hInst = hInstance

DialogBox(hInstance, MAKEINTRESOURCE(IDD_DIALOG1), NULL, (DLGPROC) DlgProc)

return 0

}

LRESULT CALLBACK DlgProc(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam)

{

LPNMHDR etat = (LPNMHDR) lParam

switch(Msg)

{

case WM_INITDIALOG:

InitCommonControls()

CreateTabDialog(hWnd)

break

case WM_COMMAND:

switch(LOWORD(wParam))

{

case IDC_QUITTER:

EndDialog(hWnd,IDC_QUITTER)

break

case IDC_APROPOS:

MessageBox(hWnd,"123","A Propos",MB_ICONINFORMATION)

break

}

break

case WM_NOTIFY:

switch(etat->code)

{

case TCN_SELCHANGE:

UpdateTab(hWnd)

break

}

break

case WM_CLOSE:

EndDialog(hWnd,IDC_QUITTER)

break

default:

return(FALSE)

}

return(TRUE)

}

BOOL CreateTabDialog(HWND hParent)

{

HWND hTabCtl = GetDlgItem(hParent, IDC_TABCTL)

TCITEM tci

m_CTab[0] = CreateDialog(hInst, MAKEINTRESOURCE(IDD_TAB1), hParent, (DLGPROC) Tab1_DlgProc)

m_CTab[1] = CreateDialog(hInst, MAKEINTRESOURCE(IDD_TAB2), hParent, (DLGPROC) Tab2_DlgProc)

tci.mask = TCIF_TEXT

tci.pszText = "Onglet 1"

SendMessage(hTabCtl, TCM_INSERTITEM, 0, (LPARAM) &tci)

tci.pszText = "Onglet 2"

SendMessage(hTabCtl, TCM_INSERTITEM, 1, (LPARAM) &tci)

RECT rcTabCtl

GetWindowRect(hTabCtl, &rcTabCtl)

SendMessage(hTabCtl, TCM_ADJUSTRECT, FALSE, (LPARAM) &rcTabCtl)

MapWindowPoints(NULL, hParent, (LPPOINT) &rcTabCtl, 2)

for(int i = 0i <= 1i++)

{

RECT rcTab

GetWindowRect(m_CTab[i], &rcTab)

int x = (rcTabCtl.left+rcTabCtl.right)/2 - (rcTab.right-rcTab.left)/2

int y = (rcTabCtl.top+rcTabCtl.bottom)/2 - (rcTab.bottom-rcTab.top)/2

SetWindowPos(m_CTab[i], NULL, x, y, 0, 0, SWP_NOZORDER|SWP_NOSIZE|SWP_NOREDRAW)

}

SendMessage(hTabCtl, TCM_SETCURSEL, 0, 0)

UpdateTab(hParent)

return true

}

void UpdateTab(HWND hParent)

{

HWND hTabCtl = GetDlgItem(hParent, IDC_TABCTL)

int nSelected = SendMessage(hTabCtl, TCM_GETCURSEL, 0, 0)

for(int i = 0i <= 1i++)

ShowWindow(m_CTab[i], (i==nSelected) ? SW_SHOW : SW_HIDE)

}

//tab1

#include <windows.h>

#include "resource.h"

LRESULT CALLBACK Tab1_DlgProc(HWND hDlg, UINT Msg, WPARAM wParam, LPARAM lParam)

{

switch(Msg)

{

case WM_COMMAND:

switch(LOWORD(wParam))

{

case IDC_MESSAGE:

MessageBox(hDlg,"Juste un ptit message pour dire qu'on est sur l'onglet n?","Onglet 1", MB_ICONINFORMATION)

break

}

break

}

return 0

}

//tab2

#include <windows.h>

#include "resource.h"

LRESULT CALLBACK Tab2_DlgProc(HWND hDlg, UINT Msg, WPARAM wParam, LPARAM lParam)

{

switch(Msg)

{

case WM_COMMAND:

switch(LOWORD(wParam))

{

case IDC_COUCOU:

MessageBox(hDlg,"Un ptit COUCOU pour dire que tout marche pour le mieux!","Onglet 2", MB_ICONINFORMATION)

break

}

break

}

return 0

}

#define IDD_DIALOG1 101

#define IDD_DIALOG2 102

#define IDD_TAB1102

#define IDD_TAB2103

#define IDC_TAB11000

#define IDC_TABCTL 1000

#define IDC_CHECK1 1001

#define IDC_RADIO1 1002

#define IDC_MESSAGE 1003

#define IDC_COUCOU 1005

#define IDC_QUITTER 1006

#define IDC_APROPOS 1007

// Next default values for new objects

//

#ifdef APSTUDIO_INVOKED

#ifndef APSTUDIO_READONLY_SYMBOLS

#define _APS_NEXT_RESOURCE_VALUE105

#define _APS_NEXT_COMMAND_VALUE 40001

#define _APS_NEXT_CONTROL_VALUE 1008

#define _APS_NEXT_SYMED_VALUE 101

#endif

#endif

统计DA_WORD数据区中正数、0、负数的个数，数据定义如下：

DA_WORD DW -1,3,5,0,-5,-7,4,0,-8……

COUNT EQU $-DA_WORD

NUM DB 0 ；存放正数的个数

DB 0 ；存放0的个数

DB 0 ；存放负数的个数

DATAS SEGMENT

ORG 1000H

DA_WORD DW 0FFFFH,3,5,0,0FFFBH,0FFF9H,4,0,0FFF8H

DOUNT EQU $-DA_WORD

ORG 1020H

NUM DB 0 存放正数的个数

ZE DB 0 存放0的个数

PLUS DB 0

DATAS ENDS

STACKS SEGMENT

DW 100 DUP(0)

STACKS ENDS

CODES SEGMENT

ASSUME CS:CODES,DS:DATAS,SS:STACKS

START:

MOV AX,DATAS

MOV DS,AX

MOV AX,DOUNT

MOV CL,1

SHR AX,CL

MOV CX,AX

MOV SI,OFFSET DA_WORD

AG: MOV AX,[SI]

CMP AX,0

JNZ NOZ

INC [ZE]

JMP NEXT

NOZ:TEST AX,8000H

JNZ ISPLUS

INC [NUM]

JMP NEXT

ISPLUS:

INC [PLUS]

NEXT:

ADD SI,2

LOOP AG

INT 3

MOV AH,4CH

INT 21H

CODES ENDS

END START

VB的实现方法

我们先来看看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 Long 欲定位的窗口

hWndInsertAfter Long 窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面

x，y Long 窗口新的x,y坐标

cx，cy Long 指定新的窗口宽度和高度

wFlags Long 包含了旗标的一个整数，是下列之一

返回值 Long 非零表示成功，零表示失败

下面是部分wFlags参数和它们的意义：

参数 意义和使用方法

SWP_DRAWFRAME 围绕窗口画一个框

SWP_HIDEWINDOW 隐藏窗口

SWP_NOACTIVATE 不激活窗口

SWP_NOMOVE 保持当前位置 (x和y设定将被忽略) &H2

SWP_NOREDRAW 窗口不自动重画

SWP_NOSIZE 保持当前大小 (cx和cy会被忽略) &H1

SWP_NOZORDER 保持窗口在列表的当前位置 (hWndInsertAfter将被忽略)

SWP_SHOWWINDOW 显示窗口 &H40

SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变

函数的使用很简单，我们只须在Form_Load中加入如下语句即可：

retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)

这样窗体就能保持在所有窗体的前面了。

为了学习方便，下面提供了源码：

注释：-------------------------------------------

注释： 让一个窗体总是处于最前的例子

注释：-------------------------------------------

注释：程序说明：

注释：本例应用SetWindowPos函数，设置窗体的显示属性

注释：来实现让一个窗体总是处于其他窗体的前面而不会

注释：被其他窗体所遮住。

注释：-------------------------------------------

Option Explicit

注释：【VB声明】

注释： 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

注释：【说明】

注释： 这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态

注释：【返回值】

注释： Long，非零表示成功，零表示失败。会设置GetLastError

注释：【备注】

注释： 窗口成为最顶级窗口后，它下属的所有窗口也会进入最顶级。一旦将其设为非最顶级，则它的所有下属和物主窗口也会转为非最顶级。Z序列用垂直于屏幕的一根假想Z轴量化这种从顶部到底部排列的窗口顺序

注释：【参数表】

注释： hwnd ----------- Long，欲定位的窗口

注释： hWndInsertAfter - Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：

注释： HWND_BOTTOM 将窗口置于窗口列表底部

注释： HWND_TOP 将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序

注释： HWND_TOPMOST 将窗口置于列表顶部，并位于任何最顶部窗口的前面 -1

注释： HWND_NOTOPMOST 将窗口置于列表顶部，并位于任何最顶部窗口的后面 -2

注释： x -------------- Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示

注释： y -------------- Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示

注释： cx ------------- Long，指定新的窗口宽度

注释： cy ------------- Long，指定新的窗口高度

注释： wFlags --------- Long，包含了旗标的一个整数，是下列之一：

注释： SWP_DRAWFRAME 围绕窗口画一个框

注释： SWP_HIDEWINDOW 隐藏窗口

注释： SWP_NOACTIVATE 不激活窗口 &H10

注释： SWP_NOMOVE 保持当前位置 (x和y设定将被忽略) &H2

注释： SWP_NOREDRAW 窗口不自动重画

注释： SWP_NOSIZE 保持当前大小 (cx和cy会被忽略) &H1

注释： SWP_NOZORDER 保持窗口在列表的当前位置 (hWndInsertAfter将被忽略)

注释： SWP_SHOWWINDOW 显示窗口 &H40

注释： SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变

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

Const HWND_TOPMOST = -1

Const SWP_SHOWWINDOW = &H40

Private Sub Form_load()

Dim retValue As Long

注释：将窗体设置为处于所有窗口的顶层，注意在 VB 中运行时，

''可能不行，但编译成EXE后就可以了

retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX,

Me.CurrentY, 300, 300, SWP_SHOWWINDOW)

End Sub

---