..Continue

 

 

 

 

برچسب‌ها: <-TagName->

Attribute VB_Name = "Resolu"
'   Resolution Resize and Run Time Control Resize.
'Module for automatically resizing forms and
'controls with varying screen resolutions. This is
'an adaptation of a Microsoft Knowledge Base
'article. The example worked as it was but half the
'code was on the form. I wanted a complete module
'to add to any app easily. To use it simply add
'"Call AdjustForm(Me)" to the Form_Load event
'and "Call FormResize(Me)" to the Form_Resize
'event.  Also change the design time resolution
'values. It is coded to 640x480 since my video
'adapter will not support higher at 16 bit color.
'The Microsoft article said it was for VB5/6 but
'I have only VB4. If you have trouble, make one for
'yourself...use at your own risk, else e-mail me
'at nwsr2@netscape.net.        No API's
Option Explicit
Public Xtwips As Integer, Ytwips As Integer
Public Xpixels As Integer, Ypixels As Integer

Type FRMSIZE
   Height As Long
   Width As Long
End Type

Public RePosForm As Boolean
Public DoResize As Boolean
Dim MyForm As FRMSIZE
Dim DesignX As Integer
Dim DesignY As Integer
Dim ScaleFactorX As Single, ScaleFactorY As Single
.

.

.

.

Continue

برچسب‌ها: <-TagName->

» اجرای یک برنامه توسط برنامه خودمان در ویژوال بیسیک ( 1391/8/6 )
» کد تغییر اندازه همه کنترل های روی فروم هنگام تغییر اندازه فرم ( 1391/8/6 )
» به وبلاگ TH-Star خوش آمدید ( 1398/5/26 )
» دانلود کتابهای الکترونیکی ( 1391/5/26 )
» وبلاگ پارس بوک افتتاح شد ( 1391/5/26 )
» مطالب جالب و خواندني ( 1391/5/26 )
» جملات قصار و آفهای قشنگ **از دست ندین! ( 1391/5/26 )
» جالب و خواندنی **ازدست ندین! ( 1391/5/26 )
» مردم چه می گویند؟؟؟؟؟؟؟؟؟؟؟ ( 1391/5/26 )
» دانستنی های خواندنی سینمایی و تلویزیونی ایران !!!! ( 1391/5/26 )
» بازی با اعداد!! ( 1391/5/26 )
» پروژه های برنامه نویسی ،عملیات گرافیکی ،مقالات علمی و موضوعات دیگر ( 1398/5/26 )