|
马上注册,结交更多好友,享用更多功能^_^
您需要 登录 才可以下载或查看,没有账号?立即注册
x
// 滚动条测试.cpp : 定义应用程序的入口点。
//
#include "stdafx.h"
#include "滚动条测试.h"
#define SCROLLHANG 100
#define MAX_LOADSTRING 100
// 全局变量:
HINSTANCE hInst; // 当前实例
TCHAR szTitle[MAX_LOADSTRING]; // 标题栏文本
TCHAR szWindowClass[MAX_LOADSTRING]; // 主窗口类名
// 此代码模块中包含的函数的前向声明:
ATOM MyRegisterClass(HINSTANCE hInstance);
BOOL InitInstance(HINSTANCE, int);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK About(HWND, UINT, WPARAM, LPARAM);
int APIENTRY _tWinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPTSTR lpCmdLine,
int nCmdShow)
{
UNREFERENCED_PARAMETER(hPrevInstance);
UNREFERENCED_PARAMETER(lpCmdLine);
// TODO: 在此放置代码。
MSG msg;
HACCEL hAccelTable;
// 初始化全局字符串
LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
LoadString(hInstance, IDC_MY, szWindowClass, MAX_LOADSTRING);
MyRegisterClass(hInstance);
// 执行应用程序初始化:
if (!InitInstance (hInstance, nCmdShow))
{
return FALSE;
}
hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_MY));
// 主消息循环:
while (GetMessage(&msg, NULL, 0, 0))
{
if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
return (int) msg.wParam;
}
//
// 函数: MyRegisterClass()
//
// 目的: 注册窗口类。
//
// 注释:
//
// 仅当希望
// 此代码与添加到 Windows 95 中的“RegisterClassEx”
// 函数之前的 Win32 系统兼容时,才需要此函数及其用法。调用此函数十分重要,
// 这样应用程序就可以获得关联的
// “格式正确的”小图标。
//
ATOM MyRegisterClass(HINSTANCE hInstance)
{
WNDCLASSEX wcex;
wcex.cbSize = sizeof(WNDCLASSEX);
wcex.style = CS_HREDRAW | CS_VREDRAW;
wcex.lpfnWndProc = WndProc;
wcex.cbClsExtra = 0;
wcex.cbWndExtra = 0;
wcex.hInstance = hInstance;
wcex.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_MY));
wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMenuName = MAKEINTRESOURCE(IDC_MY);
wcex.lpszClassName = szWindowClass;
wcex.hIconSm = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_SMALL));
return RegisterClassEx(&wcex);
}
//
// 函数: InitInstance(HINSTANCE, int)
//
// 目的: 保存实例句柄并创建主窗口
//
// 注释:
//
// 在此函数中,我们在全局变量中保存实例句柄并
// 创建和显示主程序窗口。
//
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{
HWND hWnd;
hInst = hInstance; // 将实例句柄存储在全局变量中
hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW|WS_VSCROLL,
CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);
if (!hWnd)
{
return FALSE;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
return TRUE;
}
//
// 函数: WndProc(HWND, UINT, WPARAM, LPARAM)
//
// 目的: 处理主窗口的消息。
//
// WM_COMMAND - 处理应用程序菜单
// WM_PAINT - 绘制主窗口
// WM_DESTROY - 发送退出消息并返回
//
//
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
//滚动条目前位置 窗口能显示文本的行数
static int scroll,TextHang;
/* //字符高度和宽度
static int CharH,CharW;
*/
//窗口高度和宽度
static int WindowH,WindowW;
int wmId,wmEvent;
PAINTSTRUCT ps;
HDC hdc;
static TEXTMETRIC ts;
//static TCHAR string[]=TEXT("这是第%d行");
TCHAR stringq[100];
switch (message)
{
//窗口刚建立第一个消息, 在此处调用GetTextMetrics得到系统字体属性 保存到ts变量中
case WM_CREATE:
hdc=GetDC(hWnd);
GetTextMetrics(hdc,&ts);
ReleaseDC(hWnd,hdc);
scroll=0;
return 0;
//窗口大小发生改变时产生的消息,当窗口生成时也会产生此消息,后面紧跟WM_PAINT消息
//在此处得到窗口宽度(lParam低字节)窗口高度(lParam高字节),并计算出窗口能显示多少行文本
case WM_SIZE:
WindowH=HIWORD (lParam); //取高字节
WindowW=LOWORD (lParam); //取低字节
TextHang=WindowH/(ts.tmHeight+ts.tmInternalLeading);
//调用SetScrollRange设置滚动条属性
SetScrollRange(hWnd,SB_VERT,0,SCROLLHANG,FALSE);
//调用SetScrollPos设置滚动条方块目前位置
SetScrollPos(hWnd,SB_VERT,scroll,TRUE);
return 0;
//滚动条消息
case WM_VSCROLL:
//分析滚动条时间lParam低字节是滚动条操作码
switch(LOWORD(lParam))
{
//滚动条上移动了一格
case SB_LINEUP:
scroll--;
break;
//滚动条下移动了一格
case SB_LINEDOWN:
scroll++;
break;
//滚动条上移动了一页
case SB_PAGEUP:
scroll-=3;
break;
//滚动条下移动了一页
case SB_PAGEDOWN:
scroll+=3;
break;
//滚动条正在拖动中产生的消息,本程序部处理
case SB_THUMBTRACK:
break;
//滚动条停止拖动产生的消息
case SB_ENDSCROLL:
scroll=LOWORD(lParam);
break;
default:
break;
}
//max,min两个宏让scroll不超过滚动条设置的范围
scroll=min(scroll,SCROLLHANG);
scroll=max(0,scroll);
SetScrollPos(hWnd,SB_VERT,scroll,TRUE);
//使显示区域无效, 此函数会导致window产生WM_PAINT消息
InvalidateRect(hWnd,NULL,TRUE);
return 0;
case WM_COMMAND:
wmId = LOWORD(wParam);
wmEvent = HIWORD(wParam);
// 分析菜单选择:
switch (wmId)
{
case IDM_ABOUT:
DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, About);
break;
case IDM_EXIT:
DestroyWindow(hWnd);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
break;
case WM_PAINT:
hdc = BeginPaint(hWnd, &ps);
// TODO: 在此添加任意绘图代码...
for(int i=0;i<=SCROLLHANG;i++)
{
TextOut(hdc,0,(i-scroll)*20,stringq,wsprintf(stringq,TEXT("这是第%d行"),i));
}
EndPaint(hWnd, &ps);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}
// “关于”框的消息处理程序。
INT_PTR CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
UNREFERENCED_PARAMETER(lParam);
switch (message)
{
case WM_INITDIALOG:
return (INT_PTR)TRUE;
case WM_COMMAND:
if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
{
EndDialog(hDlg, LOWORD(wParam));
return (INT_PTR)TRUE;
}
break;
}
return (INT_PTR)FALSE;
}
为什么拖动滚动条没有反应啊
|
|