scalemode,请问vb中为什么要用到ScaleMode?为什么在有left top h
本文目录索引
- 1，请问vb中为什么要用到ScaleMode?为什么在有left top height width这些属性之后要引入ScaleMode?
- 2，请问vb里的ScaleMode指的是可以字定义度量单位还是指的可以自定义坐标系统了
- 3，窗体的scalemode属性用于指定
- 4，VB的List1控件所有的使用方法
- 5，VB对象的Width Height和ScaleWidth,ScaleHeight属性有何区别？
- 6，Stage.align = "TL";是什么意思
- 7，这段代码是什么意思？能具体翻译一下吗
- 8，VB 用GDI+ 如何实现图片的旋转？
- 9，在vb中如何旋转图片？
- 10，VB中height 和width 都是以什么为单位的？为什么数字很大但是窗口很小~具体看补充
1，请问vb中为什么要用到ScaleMode?为什么在有left top height width这些属性之后要引入ScaleMode?
ScaleMode主要用于在控件上画图，可以改变计量单位，如果你仅显示图片，可以不必考虑这些属性。
=================================================
ScaleMode 属性【引用MSDN】
当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。
语法
object.ScaleMode [=
value]
ScaleMode
属性的语法包含下面部分：
部分
描述
Object
对象表达式，其值是“应用于”列表中的一个对象。
Value
一个指定度量单位的整数，“设置值”中有详细描述。
设置值
value 的设置值为：
常数
设置值
描述
VbUser
0
指出 ScaleHeight、ScaleWidth、ScaleLeft 和
ScaleTop 属性中的一个或多个被设置为自定义的值。
VbTwips
1
（缺省值）缇（每逻辑英寸为 1440
缇；每逻辑厘米为 567 个缇）。
VbPoints
2
磅（每逻辑英寸为 72
个磅）。
VbPixels
3
像素（监视器或打印机分辨率的最小单位）。
VbCharacters
4
字符（水平每个单位=120 缇；垂直每个单位=240
缇。）
VbInches
5
英寸。
VbMillimeters
6
毫米。
VbCentimeters
7
厘米。
VbHimetric
8
HiMetric
VbContainerPosition
9
控件容器使用的单位，决定控件位置。
VbContainerSize
10
控件容器使用的单位，决定控件的大小。
说明
相关的 ScaleHeight、ScaleWidth、ScaleLeft 与 ScaleTop
属性的使用，可以建立起一个带有正、负坐标的自定义坐标系统。这四个 Scale 属性与 ScaleMode
属性按下面的方式进行交互作用：
把其它任何 Scale 属性设置为任何值都将 ScaleMode 自动地设置为 0。ScaleMode 等于 0
是用户定义。
把 ScaleMode
属性设置为一个大于 0 的数，将使 ScaleHeight 和 ScaleWidth 的度量单位发生改变，并将
ScaleLeft 和 ScaleTop 设置为 0。CurrentX 和
CurrentY的设置值将发生改变以反映当前点的新坐标。
2，请问vb里的ScaleMode指的是可以字定义度量单位还是指的可以自定义坐标系统了
ScaleMode 属性
当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。
ScaleMode 属性示例
本例显示不同的 ScaleMode 属性设置值是如何改变圆的大小的。要试用此例，先将下面的代码粘贴到窗体的声明部分，然后按 F5 键 并单击窗体。单击窗体时，度量单位将改变为下一个 ScaleMode 设置值并在窗体上画一个圆。
Private Sub Form_Click ()
' 在七个“ScaleMode”设置值中循环。
ScaleMode = ((ScaleMode + 1) Mod 7) + 1
' 在窗体的中心处画一个半径为 2 的圆。
Circle (ScaleWidth / 2, ScaleHeight / 2), 2
End Sub
3，窗体的scalemode属性用于指定
ScaleMode主要用于在控件上画图，可以改变计量单位，如果你仅显示图片，可以不必考虑这些属性。
=================================================
ScaleMode 属性【引用MSDN】
当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。
语法
object.ScaleMode [=
value]
ScaleMode
属性的语法包含下面部分：
部分
描述
Object
对象表达式，其值是“应用于”列表中的一个对象。
Value
一个指定度量单位的整数，“设置值”中有详细描述。
设置值
value 的设置值为：
常数
设置值
描述
VbUser
0
指出 ScaleHeight、ScaleWidth、ScaleLeft 和
ScaleTop 属性中的一个或多个被设置为自定义的值。
VbTwips
1
（缺省值）缇（每逻辑英寸为 1440
缇；每逻辑厘米为 567 个缇）。
VbPoints
2
磅（每逻辑英寸为 72
个磅）。
VbPixels
3
像素（监视器或打印机分辨率的最小单位）。
VbCharacters
4
字符（水平每个单位=120 缇；垂直每个单位=240
缇。）
VbInches
5
英寸。
VbMillimeters
6
毫米。
VbCentimeters
7
厘米。
VbHimetric
8
HiMetric
VbContainerPosition
9
控件容器使用的单位，决定控件位置。
VbContainerSize
10
控件容器使用的单位，决定控件的大小。
说明
相关的 ScaleHeight、ScaleWidth、ScaleLeft 与 ScaleTop
属性的使用，可以建立起一个带有正、负坐标的自定义坐标系统。这四个 Scale 属性与 ScaleMode
属性按下面的方式进行交互作用：
把其它任何 Scale 属性设置为任何值都将 ScaleMode 自动地设置为 0。ScaleMode 等于 0
是用户定义。
把 ScaleMode
属性设置为一个大于 0 的数，将使 ScaleHeight 和 ScaleWidth 的度量单位发生改变，并将
ScaleLeft 和 ScaleTop 设置为 0。CurrentX 和
CurrentY的设置值将发生改变以反映当前点的新坐标。
4，VB的List1控件所有的使用方法
AddItem 方法
用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid 控件。不支持命名参数。语法object.AddItem item, indexAddItem 方法的语法包含下列部分：:部分 描述
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。
Item 必需的。字符串表达式，它用来指定添加到该对象的项目。这仅仅对于 MS Flex Grid 控件，才能使用 tab字符（字符代码 09）分隔将要插入到新添加行中每列的多重字符串。
Index 可选的。是整数，它用来指定新项目或行在该对象中的位置。对于 ListBox 或 ComboBox 控件的首项，或者对于 MS Flex Grid 控件的首行，index 为 0。
说明如果所给出的 index 值有效，则 item 将放置在 object 中相应的位置。如果省略 index，当 Sorted 属性设置为 True 时，item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item 将添加到列表的结尾。绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 AddItem 方法。
Clear 方法（Clipboard、ComboBox、ListBox）
用于清除 ListBox，ComboBox 或系统剪贴板的内容。语法object.Clearobject 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。说明绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 Clear 方法。
Drag 方法
用于除了 Line、Menu、Shape、Timer 或 CommonDialog 控件之外的任何控件的开始、结束或取消拖动操作。不支持命名参数。语法object.Drag actionDrag 方法的语法包含下列部分：部分 描述
object 必需的。是一个对象表达式，其值为“应用于”列表中的一个对象。 如果省略 object，则认为该对象事件过程包含有 Drag 方法。
action 可选的。是一个常数或数值，如“设置值”中所描述的，它指定要执行的动作。如果省略 action，则缺省值为开始拖动对象。
设置值action 的设置值有：常数 值 描述
vbCancel 0 取消拖动操作
vbBeginDrag 1 开始拖动 object
vbEndDrag 2 结束拖放 object
说明上述常数在 Visual Basic (VB) 对象浏览器的对象库里列出。只有当对象的 DragMode 属性设置为手工（0）时，才需要使用 Drag 方法控制拖放操作。但是，也可以对 DragMode 属性设置为自动（1 或 vbAutomatic）的对象使用 Drag。如果在拖动对象过程中想改变鼠标指针形状，使用 DragIcon 或 MousePointer 属性。如果没有指定 DragIcon 属性，则只能使用 MousePointer 属性。Drag 方法一般是同步的，这意味着其后的语句直到拖动操作完成之后才执行。然而，如果该控件的 DragMode 属性设置为 Manual (0 or vbManual)，则它可以异步执行。
Move 方法
用以移动 MDIForm、Form 或控件。不支持命名参数。语法object.Move left, top, width, heightMove 方法的语法包含下列部分：部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。
left 必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。
top 可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。
width 可选的。单精度值，指示 object 新的宽度。
height 可选的。单精度值，指示 object 新的高度。
说明只有 left 参数是必须的。但是，要指定任何其它的参数，必须先指定出现在语法中该参数前面的全部参数。例如，如果不先指定 left 和 top 参数，则无法指定 width 参数。任何没有指定的尾部的参数则保持不变。对于 Frame 控件中的窗体和控件，坐标系统总是用缇 。移动屏幕上的窗体或移动 Frame 中的控件总是相对于左上角的原点 (0,0)。移动 Form 对象或 PictureBox 中的控件（或 MDIForm 对象中的 MDI 子窗体）时，则使用该容器对象的坐标系统。坐标系统或度量单位是在设计时 用 ScaleMode 属性设置。在运行时 使用 Scale 方法可以更改该坐标系统。
OLEDrag 方法
引起部件初始化 OLE 拖放操作。语法object.OLEDragobject 所在处代表对象表达式，其值是“应用于”列表中的一个对象。说明当调用 OLEDrag 方法时，部件的 OLEStartDrag 事件发生，允许向目标部件提供数据。
Refresh 方法
强制全部重绘一个窗体或控件。语法object.Refresh object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明在下列情况下使用 Refresh 方法： 在另一个窗体被加载时显示一个窗体的全部。
更新诸如 FileListBox 控件之类的文件系统列表框的内容。
更新 Data 控件的数据结构。
Refresh 方法不能用于 MDI 窗体，但能用于 MDI 子窗体。不能在 Menu 或 Timer 控件上使用 Refresh 方法。通常，如果没有事件发生，窗体或控件的绘制是自动处理的。但是，有些情况下希望窗体或控件立即更新。例如，如果使用文件列表框、目录列表框或者驱动器列表框显示当前的目录结构状态，当目录结构发生变化时可以使用 Refresh 更新列表。可以在 Data 控件上使用 Refresh 方法来打开或重新打开数据库（如果 DatabaseName, ReadOnly, Exclusive 或 Connect 属性的设置值发生改变），并能重建控件的 Recordset 属性内的 dynaset。
RemoveItem 方法
用以从 ListBox 或 ComboBox 控件中删除一项，或从 MS Flex Grid 控件中删除一行。不支持命名参数。语法object.RemoveItem indexRemoveItem 方法的语法包含下列部分：部分 描述
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。
index 必需的。一个整数，它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox 中的首项或 MS Flex Grid 控件中的首行，index = 0。
说明被绑定到 Data 控件的 ListBox 或 ComboBox 不支持 RemoveItem 方法。
SetFocus 方法
将焦点移至指定的控件或窗体。语法object.SetFocusobject 所在处代表对象表达式，其值是“应用于”列表中的一个对象。说明对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用 SetFocus 方法以后，任何的用户输入将指向指定的窗体或控件。焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 False，必须在使用 SetFocus 方法使其接收焦点前将 Enabled 属性设置为 True。
ShowWhatsThis 方法
显示 Windows 95 Help 所提供的“这是什么”弹出式窗口使用的 Help 文件中选定的一个主题。语法object.ShowWhatsThisobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明ShowWhatsThis 方法对于从应用程序上下文菜单中提供上下文敏感 Help非常有用。该方法显示语法中指定对象的 WhatsThisHelpID 属性所标识的主题。
ZOrder 方法
将指定的 MDIForm，Form 或控件放置在其图层的z-顺序的前端或后端。不支持命名参数。语法object.ZOrder positionZOrder 方法的语法包含下列部分：部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则具有焦点的 Form 对象缺省为 object。
Position 可选的。一个整数，它用以指示 object 相对于同一 object 其它实例的位置。如果 position 为 0 或被省略，则 object 定位在Z-顺序前面。如果 position 为 1，则 object 定位在Z-顺序后面。
说明在设计时选择“编辑”菜单中的“置前”或“置后”菜单命令，可以设置对象的Z-顺序。在 MDIForm 对象内，Zorder 根据 position 的数值决定将 MDI子窗体放置到 MDI 客户区的前面或后面。对于 MDIForm 或 Form 对象，Zorder 根据 position 的数值决定将窗体放置到屏幕的前面或后面。因此，窗体可以显示在其它运行中的应用程序的前面或后面。有三个图层与窗体和容器相关联。后层是显示图形方法结果的绘图空间。下一个是中层，用来显示图形对象和 Label 控件。前层显示所有非图形控件，如 CommandButton、CheckBox 或 ListBox。靠近前层的层中包含的东西将覆盖该层后面的各层包含的东西。Zorder 只对该对象在其中显示的那一层内的各个对象进行重排。
5，VB对象的Width Height和ScaleWidth,ScaleHeight属性有何区别？
VB对象的Width，Height和ScaleWidth，ScaleHeight属性区别为：对象不同、影响不同、基点不同。 一、对象不同 1、Width，Height属性：Width，Height属性是控件外部的宽度和高度。 2、ScaleWidth，ScaleHeight属性：ScaleWidth，ScaleHeight属性是控件内部的宽度和高度。 二、影响不同 1、Width，Height属性：Width，Height属性受到控件所在的父容器控件的ScaleMode模式影响。 2、ScaleWidth，ScaleHeight属性：ScaleWidth，ScaleHeight属性受到控件本身的ScaleMode模式影响。 三、基点不同 1、Width，Height属性：Width，Height属性的坐标系以窗体的左上角为基点。 2、ScaleWidth，ScaleHeight属性：ScaleWidth，ScaleHeight属性的坐标系以控件左上角的左上角为基点。
6，Stage.align = "TL";是什么意思
Stage.align = "TL";在设置垂直位置的时候是“顶对齐”，在设置水平位置的时候是左对齐。
用法
Stage.align = "值"
属性；指示 SWF 文件在播放器或浏览器中的当前对齐方式。
下表列出了 align 属性的值。此处未列出的值会将 SWF 文件居中放置在播放器或浏览器区域内。
"T":顶部,中间
"B":底部,中间
"L":中间 ,左侧
"R":中间,右侧
"TL":顶部,左侧
"TR":顶部,右侧
"BL":底部,左侧
"BR":底部,右侧
Stage.height
用法
var x = Stage.height
说明
属性（只读）；以像素为单位指示舞台的当前高度。当 Stage.scaleMode 的值为 "noScale" 时，height 属性表示播放器的高度。当 Stage.scaleMode 的值不为 "noScale" 时，height 表示 SWF 文件的高度。
7，这段代码是什么意思？能具体翻译一下吗
在Stage.scaleMode=“noScale”的情况;
this.createEmptyMovieClip（“MC”，this.getNextHighestDepth（））;
进口flash.external*。
ExternalInterface.addCallback（“setNum”，空，setNum）;
ExternalInterface.addCallback（“结束”，空，结束）;
功能setNum（NUM）{
速度= NUM;
startFun（）;
changeNum（NUM）;
}
功能changeNum（NUM）{
如果（tm_mc._currentframe<2）{
tm_mc.gotoAndPlay（2）;
}
RO=娇（NUM）;
myTween=新mx.transitions.Tween（MC，“_x”，mx.transitions.easing.None.easeNone，mc._x，NUM，20）;
myTween.onMotionChanged=功能（）{
step1.num.text= Math.round（this.position）;
};
新mx.transitions.Tween（circleBg，“_rotation”，mx.transitions.easing.None.easeNone，circleBg._rotation，RO，20）;
}
circleBg._rotation=-90;
setNum（0）;
功能娇（我）{
如果（I <0）{
I =0;
}
如果（I>1024*10）{
NUM=45+45/（1024*20）*我;
}否则，如果（我>1024）{
NUM=45/（1024*10）*我;
}其他{
NUM=-90+一千〇二十四分之九十○*我;
}
返回（NUM）;
}
功能startFun（）{
step1.num.text= 0;
step1._visible= TRUE;
step2._visible= FALSE;
}
startFun（）;
函数结束（）{
changeNum（速度*10）;
step1._visible= FALSE;
step2._visible= TRUE;
step2.num.htmlText=“下载速度：”+速度+“ KB/秒相当于：”+“”+ zhuanhuan（速度）+“”;
}
功能zhuanhuan（NUM）{
如果（NUM<100）{
回报（NUM*10+“KB”）;
}其他{
回报（Math.round（NUM/10）/10+“M”）;
}
8，VB 用GDI+ 如何实现图片的旋转？
图形平滑，边缘可不平滑
模块：
Option Explicit
Public Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatus
Public Declare Function GdiplusShutdown Lib "gdiplus" (ByVal token As Long) As GpStatus
Public Declare Function GdipCreateFromHDC Lib "gdiplus" (ByVal hDC As Long, graphics As Long) As GpStatus
Public Declare Function GdipDeleteGraphics Lib "gdiplus" (ByVal graphics As Long) As GpStatus
Public Declare Function GdipSetSmoothingMode Lib "gdiplus" (ByVal graphics As Long, ByVal SmoothingMd As SmoothingMode) As GpStatus
Public Declare Function GdipSetInterpolationMode Lib "gdiplus" (ByVal graphics As Long, ByVal interpolation As InterpolationMode) As GpStatus
Public Declare Function GdipSetCompositingQuality Lib "gdiplus" (ByVal graphics As Long, ByVal CompositingQlty As CompositingQuality) As GpStatus
Public Declare Function GdipRotateWorldTransform Lib "gdiplus" (ByVal graphics As Long, ByVal angle As Single, ByVal order As MatrixOrder) As GpStatus
Public Declare Function GdipTranslateWorldTransform Lib "gdiplus" (ByVal graphics As Long, ByVal dx As Single, ByVal dy As Single, ByVal order As MatrixOrder) As GpStatus
Public Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal filename As Long, Image As Long) As GpStatus
Public Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image As Long) As GpStatus
Public Declare Function GdipGetImageWidth Lib "gdiplus" (ByVal Image As Long, Width As Long) As GpStatus
Public Declare Function GdipGetImageHeight Lib "gdiplus" (ByVal Image As Long, Height As Long) As GpStatus
Public Declare Function GdipDrawImageRect Lib "gdiplus" (ByVal graphics As Long, ByVal Image As Long, ByVal x As Single, ByVal y As Single, ByVal Width As Single, ByVal Height As Single) As GpStatus
Public Enum MatrixOrder
MatrixOrderPrepend = 0
MatrixOrderAppend = 1
End Enum
Public Enum QualityMode
QualityModeInvalid = -1
QualityModeDefault = 0
QualityModeLow = 1
QualityModeHigh = 2
End Enum
Public Enum SmoothingMode
SmoothingModeInvalid = QualityModeInvalid
SmoothingModeDefault = QualityModeDefault
SmoothingModeHighSpeed = QualityModeLow
SmoothingModeHighQuality = QualityModeHigh
SmoothingModeNone
SmoothingModeAntiAlias
End Enum
Public Enum InterpolationMode
InterpolationModeInvalid = QualityModeInvalid
InterpolationModeDefault = QualityModeDefault
InterpolationModeLowQuality = QualityModeLow
InterpolationModeHighQuality = QualityModeHigh
InterpolationModeBilinear
InterpolationModeBicubic
InterpolationModeNearestNeighbor
InterpolationModeHighQualityBilinear
InterpolationModeHighQualityBicubic
End Enum
Public Enum CompositingQuality
CompositingQualityInvalid = QualityModeInvalid
CompositingQualityDefault = QualityModeDefault
CompositingQualityHighSpeed = QualityModeLow
CompositingQualityHighQuality = QualityModeHigh
CompositingQualityGammaCorrected
CompositingQualityAssumeLinear
End Enum
Public Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Public Enum GpStatus
Ok = 0
GenericError = 1
InvalidParameter = 2
OutOfMemory = 3
ObjectBusy = 4
InsufficientBuffer = 5
NotImplemented = 6
Win32Error = 7
WrongState = 8
Aborted = 9
FileNotFound = 10
ValueOverflow = 11
AccessDenied = 12
UnknownImageFormat = 13
FontFamilyNotFound = 14
FontStyleNotFound = 15
NotTrueTypeFont = 16
UnsupportedGdiplusVersion = 17
GdiplusNotInitialized = 18
PropertyNotFound = 19
PropertyNotSupported = 20
End Enum
窗体（AutoRedraw=True）
Option Explicit
Dim token As Long
Dim graphics As Long
Dim img As Long, w As Long, h As Long
Private Sub InitGDIPlus()
Dim uInput As GdiplusStartupInput
uInput.GdiplusVersion = 1
If GdiplusStartup(token, uInput) Ok Then
MsgBox "GDI+ 初始化错误。程序即将关闭。", vbCritical, "InitError"
End
End If
End Sub
Private Sub TerminateGDIPlus()
GdipDisposeImage img
GdipDeleteGraphics graphics
GdiplusShutdown token
End Sub
Private Sub Form_Load()
InitGDIPlus
GdipCreateFromHDC Me.hDC, graphics
'GdipSetSmoothingMode graphics, SmoothingModeAntiAlias
'GdipSetInterpolationMode graphics, InterpolationModeHighQuality
'GdipSetCompositingQuality graphics, CompositingQualityHighQuality
GdipLoadImageFromFile StrPtr(App.Path & "\1.png"), img
GdipGetImageWidth img, w
GdipGetImageHeight img, h
Rotate 15, graphics, 200, 200
End Sub
Sub Rotate(angle As Single, g As Long, x As Single, y As Integer)
GdipRotateWorldTransform g, angle, MatrixOrderAppend
GdipTranslateWorldTransform g, x, y, MatrixOrderAppend
GdipDrawImageRect g, img, -w, -h / 2, w, h
End Sub
Private Sub Form_Unload(Cancel As Integer)
TerminateGDIPlus
End Sub
9，在vb中如何旋转图片？
逆时针旋转90度
Dim p()
ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
ReDim p(w - 1, h - 1)
For i = 0 To w - 1
For j = 0 To h - 1
p(i, j) = Picture1.Point(i, j)
Next j
Next i
Picture1.Width = h + 4 * Picture1.BorderStyle
Picture1.Height = w + 4 * Picture1.BorderStyle
For i = 0 To h - 1
For j = 0 To w - 1
Picture1.PSet (i, w - j - 1), p(j, i)
Next j
Next i
顺时针旋转90度把Picture1.PSet (i, w - j - 1), p(j, i)
改为Picture1.PSet (h - i - 1, j), p(j, i)
旋转180度把最后七行改为
For i = 0 To w - 1
For j = 0 To h - 1
Picture1.PSet (i, j), p(w - i - 1, h - j - 1)
Next j
Next i
10，VB中height 和width 都是以什么为单位的？为什么数字很大但是窗口很小~具体看补充
默认以“缇”为单位，可通过Screen.TwipsPerPixelX 获取水平方向上1像素等于多少缇，通过Screen.TwipsPerPixelY垂直方向上1像素等于多少缇
保持窗口大小方法：
1、把窗口边框类型设置为vbFixedSingle（固定单边框），或vbFixedDouble（固定对话框），或vbFixedToolWindow（固定工具窗口），如此，就不能通过窗口边框改变窗口大小了。
2、使用窗口的Resize事件：最小化(和最大化窗口)时，忽略，其他情况下，固定大小，事件过程代码如下：
Private Sub Form_Resize()
If Me.WindowState = 0 Then
If Me.Width 5000 Then Me.Width = 5000
If Me.Height 5000 Then Me.Height = 5000
End If
End Sub