9927.txt

关于编程技术技巧的文章

的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1)
* ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Next i
Next Obj
On Error GoTo 0
End Sub

Private Sub Form_Load()
Call ResizeInit(Me) '在程序装入时必须加入
End Sub

Private Sub Form_Resize()
Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub

----本例中给出了二个函数:ResizeInit和ResizeForm,在调用ResizeForm之前
必须先调用ResizeInit。你可以将本程序拷到窗体代码段里，然后在窗体里加
入任意控件即可进行测试。

****************************************************************
****************************************************************

◆下载专区◆

VB AutoTyper 2.0.2  （1214K）
是一个为Visual Basic 集成开发环境（VBIDE 5.0 & 6.0）服务的新的内
插式附件，它能够自动扩展基于初始键入特性的单词。
VB AutoTyper 是一个为Visual Basic 集成开发环境（VBIDE 5.0 & 6.0）
服务的新的内插式附件，它能够自动扩展基于初始键入特性的单词，使编
码更块、更轻、更容易一些。单击激活代码模块、窗体和其它的工程组件
可以使程序设计员的手指扭伤得到缓解。VB AutoTyper 展示了一个新的
和改良的单词自动扩展算法。VB AutoTyper 设计满足所有VB程序员的需
要，而不管他们的技能如何。系统要求: Visual Basic 5 or 6
下载地址：
ftp://ftp.simtel.net/pub/simtelnet/win95/visbasic/autypr22.zip

BButton ActiveX Control 0.07.0004 （14K）
是缺省VB6命令键的替换选择。
BButton ActiveX控制器使你创造出不同形式的命令键。它允许你在按键发
出滴答声时设置替换色彩。此控制器也没有焦点控制矩形。
下载地址： http://members.tripod.com/~S_Balaji/BButton.zip
相关地址： http://members.tripod.com/S_Balaji/

SyntaxHTML 1.21 （164K）
是一个应用程序，它将C/C++资源编码转变为高度有序的HTML。
SyntaxHTML制造HTML 3.0兼容码，并通过常常认为是全功能发达环境如视
觉工作室的方式显示资源码。如果你要穿越互联网分配资源码并想显示自
己网页深处的编码片断，它将很有用。SyntaxHTML的解析能力包括ANSI C
至ANSI C++。不支持制造特别的语言扩展名（e.g. Microsoft视觉C++扩展
名）。SyntaxHTM能区分关键字符（交叉、回车、分类），操作点（=、！、
〈），串行，字符，注释（//），长注释（/**/）以及预处理行（#）。
SyntaxHTML可以进行批量转换，允许成倍的文件通过相同的格式化参数进
行快速转换。
下载地址：
ftp://ftp.simtel.net/pub/simtelnet/win95/prog/sxhtm121.zip 

ReadyCode '98 （1780K）
是一个源代码收藏夹，它为Visual Basic程序设计师收集了超过50个普通
功能。
ReadyCode '98是一个为Visual Basic服务的程序设计工具。作为一个程序
员，你每天需书写成百行编码。ReadyCode '98在这个过程中通过提供超过
50个一般的有用功能实施帮助。只需从ReadyCode'98中剪切这个代码，并
粘贴进入你的程序即可。
下载地址： http://www.ashishsystems.com/download/rc.exe
相关地址： http://www.ashishsystems.com/pages/products.htm

****************************************************************
****************************************************************

◆有问必答◆

082. 回答请mailto: [e-mail]?subject=082
关于VC5打印预览的问题:
请问如何在基于对话框的程序中实现打印预览?
请问如何在AppWizard生成的不带打印预览的程序中实现打印预览?
我的email: [e-mail]

083. 回答请mailto: [e-mail]?subject=083
1、BCB3.0中能用VB5.0编译出的OCX控件吗？如何使用？
2、BCB3.0中，在Form上绘图，当此Form被其他窗口覆盖后，再激活，发现
所画的图形没有了，怎样恢复？（最好能象VB5.0中Form的AutoRedraw那样）
刘楷 [e-mail]

084. 回答请mailto: [e-mail]?subject=084
请问:如何解码用UTF-8编码过的内容? [e-mail]

085. 回答请mailto: [e-mail]?subject=085
在PB6.5 中, 使用datawindow 的图形风格,怎样才能使它变成彩色的, 如: 
直方图用不同的颜色区分.? [e-mail]

086. 回答请mailto: [e-mail]?subject=086
请问：中文VB5.0/6.0为什么无法打开（识别）Access2000保存的数据库文
件中的表？如何解决该问题？ [e-mail]

087. 回答请mailto: [e-mail]?subject=087
能否详细讲述一下什么是回调函数以及如何使用回调函数.
谢谢 [e-mail]

088. 回答请mailto: [e-mail]?subject=088
怎样写万年历程序？ [e-mail]

089. 回答请mailto: [e-mail]?subject=089
用Borland C++ Builder4  + MS SQL Server7.0; 在程序中用SQL CREATE
了一个table,可是在程序中用Table控件的TableName =CREATE的table 后
却出错，（库里确实生成了这个table);谁能告诉我为什么，如何解决？
[e-mail]

090. 回答请mailto: [e-mail]?subject=090
    清华大学出版社1996年出版的《Windows编程速成》一书的第14~17页
提供了一个简单的Windows程序（名为Generic）的C++源代码,它由四个标
准文件（C源代码文件Generic.c、头文件Generic.h、资源定义文件
Generic.rc和模块定义文件Generic.def）组成。书上说这个程序在
Borland C++3.1和Visual C++环境中都可以完成编译，可是我在Borland 
C++5.0环境中却无法完成编译（系统提示出错）。请把它放到杂志上，如
果哪位高手有兴趣帮我查明原因，不胜感谢！
我的E-mail: [e-mail]
附各个文件清单如下：

/*头文件Generic.h*/
#define    IDM_DO   10
#define    IDM_QUIT 11

int PASCAL WinMain(HANDLE,HANDLE,LPSTR,int);


/*C源代码文件Generic.c*/
#include <windows.h>
#include "Generic.h"

int PASCAL WinMain(hInstance,hPrevInstance,lpszCmdLine,nCmdShow)
HANDLE hInstance;
HANDLE hPrevInstance;
LPSTR  lpszCmdLine;
int    nCmdShow;
{
  MSG         msg;
  WNDCLASS    wndclass;
  HWND        hWnd;

  if (! hPrevInstance)
  {
    wndclass.style = CS_HREDRAW|CS_VREDRAW;
    wndclass.lpfnWndProc = WndProc;
    wndclass.cbClsExtra = 0;
    wndclass.cbWndExtra = 0;
    wndclass.hInstance = hInstance;
    wndclass.hIcon = LoadIcon(NULL,IDI_APPLICATION);
    wndclass.hCursor = LoadCursor(NULL,IDC_ARROW);
    wndclass.hbrBackground = GetStockObject(WHITE_BRUSH);
    wndclass.lpszMenuName = "GenericMenu";
    wndclass.lpszClassName = "GenericClass";
    if (! RegisterClass (&wndclass))

      return(FALSE);
  }
  hWnd = CreateWindow("GenericClass","Generic Sample Application",
                      WS_OVERLAPPEDWINDOW,
                      CW_USEDEFAULT,CW_USEDEFAULT,
                      CW_USEDEFAULT,CW_USEDEFAULT,
                      NULL,NULL,hInstance,NULL);

  ShowWindow(hWnd,nCmdShow);
  UpdateWindow(hWnd);

  While (GetMessage (&msg,NULL,NULL,NULL))
  {
    TranslateMessage(&msg);
    DispatchMessage(&msg);
  }

  return(msg.wParam);
  }
  LONG FAR PASCAL WndProc(hWnd,message,wParam,lParam)
  HWND hWnd;
  WORD message;
  WORD wPram;
  LONG lParam;
  {
  HDC  hDC;
     switch(message)
     {
     case WM_COMMAND;
     switch (wParam)
     {
       case IDM_DO:
            hDC = GetDC(hWnd);
            TextOut(hDC,10,20,"good,You success!,16);
            releaseDC(hWnd,hDC);
            break;
       case IDM_QUIT:
            DestroyWindow(hWnd);
            break;
     }
     break;
   case WM_DESTROY:
     PostQuitMessage(0);
     break;
   default:
   return(defWindowProc(hWNd,message,wParam,IParam));
   }
   return(NULL);
}


/*模块定义文件Generic.def*/
NAME         Generic
DESCRIPTION  'Generic Sample Application'
EXETYPE      WINDOWS
STUB         'WINSTUB.EXE'
CODE         PRELOAD MOVEABLE DISCARDABLE
DATA         PRELOAD MOVEABLE MULTIPLE
HEAPSIZE     1024
STACKSIZE    8192
EXPORTS
 WndProc     @1

/*资源定义文件Generic.rc*/
#include <windows.h>
#include "Generic.h"
GenericMenu    MENU
BEGIN
  MENUITEM "&Do",  IDM_DO
  MENUITEM "&Quit",IDM_DO
END


提问信箱: [e-mail]?subject=question
如果您有什么疑难问题，请发到上面的信箱里，我会及时把您的问题放在
杂志上的，希望编程高手们能不吝赐教，也希望这个栏目能成为大家交流
的场所。

****************************************************************
****************************************************************

◆编者的话◆


本刊已加入【CHINA-EZL】中国电子杂志联盟
联盟主页地址 http://china-ezl.yeah.net

◆欢迎光临我的个人主页

●《编程技术》 http://person.zj.cninfo.net/~yao
本刊的同名主页，主要以收集各类编程工具和程序源代码为主。

●《C++ Builder世界》 http://cppbuilder.soim.net
本人最新制作的个人主页，是一个探讨C++ Builder编程的专题
网站，为广大的C++ Builder爱好者搜集关于C++ Builder的一切。
                                                

◆《编程技术》订、退方法:

请到本刊主页进行订退工作 http://person.zj.cninfo.net/~yao

如果您觉得这份刊物还不错的话,欢迎把它介绍给您的朋友.
不知道您看了这期刊物有什么想法或者是意见,欢迎向我提出来.
本人感激不尽,我的联系方法如下:
E-mail：[e-mail]
ICQ#：  43260473

**************************THE END**************************