VB2008工程代码-调整窗体尺寸时锁定长宽比例 个人原创，包含详细注释信息。 -----------部分代码如下---------------------------------------------------------- Module Module1 Public old_width As Integer, old_height As Integer 改变之前窗体的高度和宽度 Public w_vs_h As Double 窗体宽度高度之比 Sub formResize() w_
Delphi实现窗体状态栏（检查框）进度条效果，这个小功能估计大家都见到过了，当程序需要等候操作的时候，在窗口状态栏上会显示进度条效果，加载完成会弹出提示信息，部分代码段分享给大家： ProgressBar1.Position:=ProgressBar1.Position 5; if ProgressBar1.Position>=100 then begin timer1.Enabled := false; showmessage(窗体已成功载入); P
拖动无边框窗体的例子，演示了具体的实现方法，基于VB6.0编写，一个很实用的移动无标题栏窗体的例子，拖动无边框窗体其实现方法简单，很值得借鉴。以下是关键部分的代码： Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 1 Then Checking for Left Button only Dim ReturnVal As Long
