vb文件流.docVIP

　1. 进程条 作用：进程条控件用于监视操作完成的进度。 　　创建：在窗体上画出进程条控件，右击，选择属性，然后进行所需的外观设置。 　　主要属性：ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行程的界限。Value 属性则指明了在行程范围内的当前位置。 　　(1) Min属性代表进程条全空时的值，缺省时为0。 　　(2) Max属性代表进程条全空时的值，缺省时为100。 　　(3) Value属性代表进程条当前的值（但不出现在属性窗口中），它大于Min属性，小于Max属性。改变Value属性的值将改变进程条的进度显　　示。 　　示例： 　　Private Sub Command1_Click() 　　If ProgressBar1.Value ProgressBar1.Max Then 　　ProgressBar1.Value = ProgressBar1.Value + 5 　　Else 　　ProgressBar1.Visible = False ‘当进程条满了的时候让进程条消失 　　End If 　　End Sub 　　2．滑块 　　Slider 控件是包含滑块和可选择性刻度标记的窗口，在窗体上画出滑块控件，右击，选择属性，然后进行下列设置： 　　（1）选择滑块的外观 　　1)方向属性决定滑块的方位，可以是垂直的或水平的滑块。 　　2)滑块样式属性决定滑块标记的样子。 　　3)滑块频率属性规定了沿着滑块的标记的间隔大小，缺省的状态是1，表明每个可能值都出现标记，如果把值设置为3，则每三个可能值出现一个标记。 　　（2）滑块的主要属性及事件 　　1）Min，Max属性 　　Min属性决定滑块最左端或最顶端所代表的值。Max属性决定滑块最右端或最下端所代表的值。 　　2）LargeChange,SmallChange属性 　　SmallChange决定在滑块两端的箭头钮上单击时改变的值。LargeChange决定在滑块上方或下方区域单击时改变的值。 　　3）Value属性 　　Value属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。 　　4）Change事件 　　当滑块位置发生变化时就引发了Change事件。 如何把保存在数据库内的图片的高和宽读出!  /expert/Topic/50/50275.shtm   可用 n * KB 设置块大小  Const KB = 1024 常数 可改  Const n = 1 常数 可改   Dim cnn As New ADODB.Connection  Dim rec As New ADODB.Recordset  cnn.Open Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= App.Path \mmxdb97.mdb  用 SQL 打开含有大字段的表,例如: PictureTable  rec.Open select * from PictureTable, cnn, adOpenKeyset, adLockOptimistic , adCmdTable  Debug.Print rec.Fields(1).Type 为大字段存图  Dim FileBuffer() As Byte 声明 Byte 型数组,作为 Binary 数据的存放缓冲区  Dim TempFileName As String  Dim PictureX As Picture 声明 Picture 类型的对象 PictureX  Dim lSize As Long  Dim i As Long 记录序号  Dim FileNumber As Long  FileNumber = FreeFile FileNumber 存放用 FreeFile 函数得到的空闲号  Do Until rec.EOF 遍历记录集的每一条记录  i = i + 1  TempFileName = Temp 随便起一个临时的文件名 Temp  以下是为保证不覆盖原有文件  Do Until Len(Trim(Dir(App.Path TempFileName .tmp))) = 0