问个很菜的问题(Scaleleft)-CSDN社区

在Windows操作系统上，VisualBasic作为一门计算机语言，功能非常强大，而且简单易学。VisualBasic提供可视化设计工具，编程人员可利用VisualBasic提供的控件轻松的“画”出应用程序的友好界面，因此容易入门，入门以后就有能力进一步学习难度更大的编程语言。VisualBasic作为编程人员的首选程序设计语言，有如下特点： 1、VisualBasic是开发Windows应用程序的强有力的工具，使用了最先进的程序设计思想，能轻而易举的开发出符合Windows规范和风格的应用程序； 2、VisualBasic在科学计算、多媒体软件开发、网络应用等方面都有强大的功能，尤其在数据库开发方面，提供了许多控件，便于连接、查询和显示查询结果，现在很多管理软件，包括一些大型软件，都是利用VisualBasic开发的； 3、VisualBasic改变了传统的程序的机制，采用“事件驱动”方式，用户操作产生不同的事件，程序根据这些事件去分别执行不同的子程序。编程人员可以分别编写出这样一些子程序，因此使编程难度大大下降。　　在VisualBasic语言中，控件是用户界面的基本要素，是进行可视化程序设计的重要基础，它不仅关系到界面是否友好，还直接关系到程序的运行速度以及整个程序的好坏。每个控件都具有它的属性、方法和事件，设计窗体就必须很好的掌握控件的属性和应用方法。控件具有很多相同的属性，如标识控件名称的Name属性、标识控件标题的Caption属性、有效属性Enable、可见属性Visible、标识控件位置和大小的Top、Left、Width、Height、属性、定义背景色的BackColor属性、定义前景色的ForeColor属性和定义字体类型的Font属性，各个控件也有其特有的一些属性。　　VisualBasic中的控件分为两种，即标准控件（或内部控件）和ActiveX控件。内部控件是工具箱中的“常驻”控件，始终出现在工具箱里，而ActiveX控件是扩展名为.ocx的文件（在Windows\System文件夹里），它是根据变成需要添加到工具箱里的。　　在一般情况下，工具箱里只有标准控件，为了把ActiveX控件添加到工具箱里，可按以下步骤执行： (1)在菜单里选择“工程-部件”，弹出“部件”对话框； (2)在对话框中选择“控件”选项卡，显示ActiveX控件列表； (3)在列表框中找到需要添加的控件名称，单击控件名称左侧的复选框； (4)使用同样的方法选择需要添加的其它控件； (5)单击“确定”按钮，即可将所选ActiveX控件添加到工具箱里。窗体(FORM)的常用属性属性说明 (Name)窗体的名称 ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 Appearance外观效果,取值为：0 平面1 3D(立体) AutoRedraw是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为：True False BackColor背景颜色,可从弹出的调色板选择。 BorderStyle设置边界类型,取值为： 0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架) 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption窗体的标题 ClipControls决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取值为： True或False ControlBox是或有控制框, 取值为： True 有 False 无 DrawMode设定窗体上绘图(graphics方法),Shape,Line等控件的输出外观,有16种可选： 1 黑色 2 非或笔,设置值15的反相 3 与非笔,背景色以及画笔反相二者共有颜色的组合 4 非复制笔,设置值13的反相 5 与笔非,画笔以及显示色反相二者共有颜色的组合 6 反相,显示颜色反相 7 异或笔,画笔颜色以及显示颜色的异或 8 非与笔,设置值9的反相 9 与笔,画笔以及显示色二者共有颜色的组合 10 非异或笔,设置值7的反相 11 无操作,该设置实际上是不画图 12 或非笔,显示颜色与画笔颜色反相的组合 13 复制笔,用ForeColor属性指定的颜色,此为默认值 14 或笔非,画笔颜色与显示颜色反相的组合 15 或笔,画笔颜色与显示颜色的组合 16 白色 DrawStyle设定绘图相关方法使用的直线样式, 有7种可选： 0 实线,此为默认值 1 虚线 2 点线 3 单点划线 4 双点划线 5 无线 6 内部实线 DrawWidth设定绘图相关方法使用的直线宽度 Enabled是或把鼠标或键盘事件发送到窗体,取值为： True 可用 False 不可用 FillColor填充颜色, 可从弹出的调色板选择。 FillStyle填充样式, 有8种可选： 0 全部填充 1 透明,此为默认值 2 水平直线 3 竖直直线 4 上斜对角线 5 下斜对角线 6 十字线 7 交叉对角线 Font字型,可从弹出的对话框选择字体,大小和风格 FontTransparent输出数据是否允许重叠(获得或设置一个值,决定是否显示窗体,打印机或PictureBox上的背景文本/图形)。取值为： True或False ForeColor前景颜色,可从弹出的调色板选择。 HasDC决定是否为该控件分配了唯一的显示上下文。取值为： True或False Height窗体的高度 HelpContextID指定一个对象的缺省帮助文件上下文标识符 Icon为窗体设计图标,该图标位于标题栏的左端 KeyPrevier获得或设置是否在激活对象的上的控件的键盘事件之前,优先激活对象键盘事件。取值为： True或False Left窗体距屏幕左边界的距离 LinkMode获得或设置用于DDE会话的链接类型并激活连接,取值为： 0 None 1 Source LinkTopic获得或设置目标控件的源应用程序和主题 MaxButton窗体右上角最大化按钮是否显示,运行时只读, 取值为： True 显示 False 不显示 MDIChild是否为MDI窗体的子窗体, 取值为： True 为MDI窗体的子窗体 False 否 MinButton窗体右上角最小化按钮是否显示,运行时只读, 取值为： True 显示 False 不显示 MouseIcon MousePointer=99时,设定一个自定义的鼠标图标 MousePointer Moveable是否可以移动窗体, 取值为： True 可以移动 False 不可以移动 NegotiateMenus决定是否将对象的菜单合并到该窗体的菜单栏上。取值为： True或False OLEDropMode 获得或设置该对象是否能作为一个OLE放下目标, 取值为： 0 None(无) 1 Manual(手动) Palette 获得或设置一个图象,包含了当PaletteMode被设置为Custom时用于调色板的对象。 PaletteMode 获得或设置一个值,决定对于对象的控件使用哪个调色板。取值为： 0 Halftone 1 UseZOrder 2 Custom Picture 窗体背景图片 RightToLeft 文本书写是否自左向右。取值为： True False 自右向左 ScaleHeight 自定义坐标系的纵坐标轴的高度 ScaleLeft 自定义坐标系的左边界起点的横坐标 ScaleMode 获得或设置一个值,指示当使用graphics方法或可定位的控件时,自定义坐标系的单位, 有8种可选： 0 自定义 1 表示单位为twip(缇),每英寸=1440缇,每厘米=567缇 2 表示单位为point(磅) ,每英寸=72磅,每磅=20缇 3 表示单位为像素,是监视器或打印机分辨率的最小单位 4 表示单位为字符,每个水平单位为120缇,每个垂直单位为240缇 5 表示单位为in(英寸) 6 表示单位为mm(毫米) 7 表示单位为cm(厘米) ScaleTop 自定义坐标系的上边界起点的纵坐标 ScaleWidth 自定义坐标系的横坐标轴的宽度 ShowInTaskbar 窗体或MDI窗体是否出现在Windows95的任务栏。取值为： True 出现 False 不出现 StartUpPosition 窗体第一次出现的位置, 有4种可选： 0 没有指定初始位置 1 设定在所属项目的中央 2 设置在屏幕的中央 3 设置在屏幕的左上角 Tag 存储程序所需的附加数据 Top 窗体距屏幕顶部边界的距离 Visible 窗体是否可见, 取值为： True 该对象可见 False 该对象不可见 WhatsThisButton 获得或设置是否在一个窗体或MDI窗体的标题上显示"这是什么"按钮。取值为： True或False WhatsThisHelp 获得或设置是否在上下文相关帮助中, 使用Windows95帮助或主帮助窗口提供的"这是什么"弹出菜单。取值为： True或False Width 窗体的宽度 WindowStart 获得或设置一个窗体窗口运行时的可见状态, 取值为： 0 窗体正常状态 1 窗体最小状态 2 窗体最大状态

Option Explicit
Public txtSQL As String
Dim mrc As adodb.Recordset
'用户的读写权限标识
Dim mintRW As Integer
'状态条中显示的时间信息
Public msBarText As String
Public reportSQL As String
Public Sub RecordFind()
'
End Sub
Public Sub RecordRefresh()

'显示数据
msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")

ShowData
End Sub

Public Sub RecordAdd()
gintCKSmode = ADD
frmCKSetup1.Show 1
'ShowData
End Sub

'删除记录
Public Sub RecordDelete()
Dim sSQL As String
Dim intCount As Integer
Dim recTemp As adodb.Recordset
Dim MsgText As String

On Error GoTo myErr

If msgList.Rows > 1 Then
If MsgBox("真的要删除仓库编号为" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "的记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
intCount = msgList.Row

sSQL = "select * from inh full join outh on inh.ckdm = outh.ckdm full join kucun on inh.ckdm =kucun.ckdm full join zc zc1 on zc1.i_ckdm = inh.ckdm full join zc zc2 on zc2.o_ckdm = inh.ckdm where "
sSQL = sSQL & "inh.ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
sSQL = sSQL & "or outh.ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
sSQL = sSQL & "or kucun.ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
sSQL = sSQL & "or zc1.i_ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
sSQL = sSQL & "or zc2.o_ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"

Set recTemp = ExecuteSQL(sSQL, MsgText)
If Not recTemp.EOF Then
MsgBox "数据库中存在与" & Trim(msgList.TextMatrix(intCount, 2)) & "相关的纪录，不能删除！", vbOKOnly, "警告"
Exit Sub
Else
sSQL = "delete from dm_ck where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
Set recTemp = ExecuteSQL(sSQL, MsgText)
End If

'Unload frmCKSetup
'frmCKSetup.txtSQL = "select * from dm_ck"
'frmCKSetup.Show
ShowData
End If
End If

Exit Sub

myErr:
ShowError
End Sub

Public Sub RecordEdit()
Dim intCount As Integer

If msgList.Rows > 1 Then
gintCKSmode = EDIT
intCount = msgList.Row
If intCount > 0 Then
frmCKSetup1.txtSQL = "select * from dm_ck where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
frmCKSetup1.Show 1
Else
MsgBox "警告", vbOKOnly + vbExclamation, "请首先选择需要修改的纪录！"
End If
ShowData
Else
Call RecordAdd
End If
End Sub

Private Sub Form_Activate()
'设置读写权限
SetWorkRW mintRW
fMainForm.sbStatusBar.Panels(1).Text = msBarText
End Sub

Private Sub Form_Load()
'用户操作权限
Dim sPermission As String
Dim recTemp As Recordset
Dim sSQL As String
Dim sByte As String
Dim MsgText As String

On Error GoTo myErr
'设置操作的表名称
'msTableName = "ampaytune"
'msRptName = "paytune.rpt"
'msOrderBy = " order by tzdate,tzid"
'sOrder0 = "+ {tzdate}"
'sOrder1 = "+ {tzid}"
'msSelect = "select * from "

'置mintRW初值
mintRW = 0
sSQL = "select rw from permission where module=10 and id='" & sUserName & " '"
Set recTemp = ExecuteSQL(sSQL, MsgText)
If recTemp.EOF = False Then
mintRW = CInt(recTemp!rw)
Else
mintRW = ERRORMODE
SetMdiEnv
MsgBox "您的帐号权限有错误！", vbOKOnly + vbCritical, "错误"
Exit Sub
End If

'设置msSql
'msSql = msSelect & msTableName & " where tzdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "' and tzdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy

'显示数据
msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
ShowTitle
ShowData

Set recTemp = Nothing
Exit Sub

myErr:
ShowError

End Sub

Private Sub Form_Resize()
If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then
'边界处理
If Me.ScaleHeight < 10 * lblTitle.Height Then

Exit Sub
End If
If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then

Exit Sub
End If
'控制控件的位置

lblTitle.Top = lblTitle.Height
lblTitle.Left = (Me.Width - lblTitle.Width) / 2

msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2
msgList.Width = Me.ScaleWidth - 200
msgList.Left = Me.ScaleLeft + 100
msgList.Height = Me.ScaleHeight - msgList.Top

End If
End Sub

Public Sub FormClose()
Unload Me
End Sub
Private Sub ShowData()

Dim j As Integer
Dim i As Integer
Dim MsgText As String

On Error GoTo myErr

Set mrc = ExecuteSQL(txtSQL, MsgText)
With msgList
.Rows = 1

Do While Not mrc.EOF
.Rows = .Rows + 1
For i = 1 To mrc.Fields.Count
If Not IsNull(Trim(mrc.Fields(i - 1))) Then
Select Case mrc.Fields(i - 1).Type
Case adDBDate
.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
Case Else
.TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
End Select
End If
Next i
mrc.MoveNext
Loop

End With

fMainForm.sbStatusBar.Panels(1).Text = msBarText
Set mrc = Nothing
Exit Sub

myErr:
ShowError

End Sub

'显示Grid表头
Private Sub ShowTitle()
Dim i As Integer

With msgList
.Cols = 4
.TextMatrix(0, 1) = "仓库编号"
.TextMatrix(0, 2) = "仓库名称"
.TextMatrix(0, 3) = "备注信息"

'固定表头
.FixedRows = 1

'设置各列的对齐方式
For i = 0 To 3
.ColAlignment(i) = 0
Next i

'表头项居中
.FillStyle = flexFillRepeat
.Col = 0
.Row = 0
.RowSel = 1
.ColSel = .Cols - 1
.CellAlignment = 4

'设置单元大小
.ColWidth(0) = 1000
.ColWidth(1) = 1000
.ColWidth(2) = 2000
.ColWidth(3) = 3000
.Row = 1

End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetMdiEnv
End Sub

Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'右键弹出
If Button = 2 And Shift = 0 Then

End If

End Sub

在该网站的上传权限，但不允许上传违犯国家安全及违犯《中华人民共和国著作权法》等相关法律法规，以及一切色情、病毒、等危害广大用户利益的资源。同时要遵守CSDN下载社区上传规则，如一经发现或收到举报我社区有权删除，并将扣除上传者在下载社区的全部积分，而因此带来的一切后果由上传者自负。

在做机房收费系统时，想要在在加载主界面时就同时加载多文档界面窗体，并且和一个子窗体，子窗体看似是嵌套到多文档窗体的效果。这里用到了窗体的几个属性，由于基础不好就复习了。理解：在vb中的窗体内部（出去窗体边框及标题栏的区域）有一个类似画布的东西，它始终是占满整个窗体区域的，