第12章visualbasic多媒體程序設(shè)計(編輯修改稿)
2025-02-23 10:14 本頁面
【文章內(nèi)容簡介】 100 Width=1575 End 繪圖方法程序?qū)嵗? ? Begin HScroll1 Height=375 Left=8250 Max=255 TabIndex=5 Top=4380 Width=1575 End ? Begin Command4 Caption=退 出 BeginProperty Font Name=宋體 Size=12 繪圖方法程序?qū)嵗? ? Charset=134 Weight=400 Underline=0 39。False Italic=0 39。False Strikethrough=0 39。False EndProperty Height=495 Left=6210 TabIndex=4 Top=6780 Width=1455 End ? Begin Command3 Caption=清 屏 BeginProperty Font Name=宋體 Size=12 Charset=134 Weight=400 Underline=0 39。False Italic=0 39。False Strikethrough=0 39。False EndProperty 繪圖方法程序?qū)嵗? 繪圖方法程序?qū)嵗? ? Charset=134 Weight=400 Underline=0 39。False Italic=0 39。False Strikethrough=0 39。False EndProperty Height=495 Left=2130 TabIndex=2 Top=6780 Width=1455 End 繪圖方法程序?qū)嵗? ? Begin Picture1 AutoRedraw=1 39。True BackColor=H80000009 Height=6015 Left=330 ScaleHeight=5955 ScaleWidth=7035 TabIndex=0 Top=300 Width=7095 End 繪圖方法程序?qū)嵗? ? Size=12 Chatset=134 Weight=400 Underline=0 39。False Italic=0 39。False Strikethrough=0 39。False EndProperty Height=495 Left=90 TabIndex=1 Top=6780 Width=1455 End 繪圖方法程序?qū)嵗? ? 程序代碼如下 ? 39。在窗體 Forml的聲明段聲明以下變量 Dim paintnow As Boolean Dim startX As Single， startY As Single Dim red As Integer， green As Integer， blue As Integer Private Sub Command1_Click() 39。變量 file_name用于保存用戶輸入的要打開的文件的文件名 Dim file_name As String file_name=InputBox(請輸入路徑 \文件名： ， 打開文件 ) 39。如果文件不存在，則顯示 ”文件未找到 ”的對話框，否則將指定的圖形文件載入賦給 39。圖片框的 Picture屬性 (即在圖片框中顯示打開的
研究報告相關(guān)推薦
鄂ICP備17016276號-1