vb第八章系統(tǒng)環(huán)境資源的應(yīng)用(文件)
【正文】 Private Sub Form_MouseMove (Button As Integer,Shift As Integer, X As Single, Y As Single) If DrawNow Then Line (X, Y) End Sub 167。 DragOver 識(shí)別何時(shí)在對(duì)象上拖動(dòng)控件。當(dāng)用戶在源對(duì)象上按下鼠標(biāo)左按鈕同時(shí)拖動(dòng)鼠標(biāo)時(shí)，對(duì)象的圖標(biāo)便隨鼠標(biāo)指針移動(dòng)到目標(biāo)對(duì)象上產(chǎn)生 DragDrop事件。 ? 手工方式：在屬性窗口中要將源對(duì)象的 DragMode屬性設(shè)置為“ 0Manual” （手工方式）。 拖放 三、改變拖動(dòng)圖標(biāo) ? 拖動(dòng)控件時(shí)， VisualBasic將控件的灰色輪廓作為默認(rèn)的拖動(dòng)圖標(biāo)。選定 DragIcon屬性后單擊“屬性”按鈕，再?gòu)摹凹虞d圖標(biāo)”對(duì)話框中選擇包含圖形圖像的文件。 DragDrop事件提供三個(gè)參數(shù)： Source， x和 y。 拖放 五、啟動(dòng)拖動(dòng)和停止拖動(dòng) ? Drag方法的語(yǔ)法： action ? 說明： Action參數(shù)的取值及意義如下： （ 1） vbCancel或 0：取消拖動(dòng)操作。 拖放 ? 例子：設(shè)計(jì)一個(gè)窗體說明啟動(dòng)拖動(dòng)和停止拖動(dòng)的過程。 （ 1）如果 TrackDefault屬性為 True，并且在 Windows“ 控制面板”中改變了缺省打印機(jī)，則 Printer對(duì)象屬性值將會(huì)反映新的缺省打印機(jī)的屬性。 系統(tǒng)對(duì)象 例如，通過下列語(yǔ)句，用 ScaleLeft 和 ScaleTop可指定打印的窗體 (PFrm)在頁(yè)中心： = (( ) / 2) = (( ) / 2) （ 4）許多打印機(jī)都支持 Zoom屬性。 例如，將 Zoom屬性設(shè)置為 50，可使打印頁(yè)看起來只是實(shí)際打印紙頁(yè)長(zhǎng)和寬的一半。下列語(yǔ)句設(shè)置了當(dāng)前頁(yè)左上角的圖片坐標(biāo)： = 0 = 0 Printer對(duì)象上打印窗體 有時(shí)需要應(yīng)用程序打印一個(gè)或多個(gè)窗體（連同窗體上的信息），尤其是當(dāng)窗體的設(shè)計(jì)用于發(fā)票或時(shí)間表之類的打印資料時(shí)，更是如此。 這是文本的第二行。 167。 這是說明 KillDoc 方法的第三行。 167。 ? 例：下面的程序可以列出當(dāng)前計(jì)算機(jī)可以使用的字體的名字，并顯示在一個(gè)文本框中。 (i) amp。 系統(tǒng)對(duì)象 三、 Clipboard 對(duì)象 ? Clipboard對(duì)象沒有任何屬性以及事件，但是通過它的一些方法可以提供對(duì)系統(tǒng) Clipboard（剪貼板）的訪問。此事件中只有一個(gè)參數(shù)，是用戶按鍵的 ASCII碼值。 （ 3） PageUp和 PageDown鍵。 本章小結(jié) MousePointer和 MouseIcon決定了鼠標(biāo)的外形特征。 。 在 VisualBasic中有幾個(gè)預(yù)先定義好的系統(tǒng)對(duì)象，它們是 Screen、 Printer、 Clipboard和 Debug，分別對(duì)應(yīng)屏幕、打印機(jī)、剪貼板和調(diào)試用的立即窗口。 （ 5）不僅響應(yīng)按鍵操作而且響應(yīng)釋放鍵的操作。 、 KeyUp事件 KeyDown和 KeyUp事件提供了最低級(jí)的鍵盤響應(yīng)，在程序中可用這些事件檢測(cè)下列 KeyPress事件無法檢測(cè)到的情況： （ 1） Shift、 Ctrl和 Alt鍵的特殊組合。在復(fù)制任何信息到 Clipboard對(duì)象中之前，應(yīng)使用 Clear方法清除 Clipboard對(duì)象中的內(nèi)容，例如 。 Chr(13) amp。將文本框的 MultiLine屬性設(shè)為 True。它可以根據(jù)窗體在屏幕上的布局而操作窗體，并在運(yùn)行時(shí)控制應(yīng)用程序窗體之外的鼠標(biāo)指針。但如果打印管理器沒有控制打印工作，可能會(huì)有文本已送入打印機(jī)并且不會(huì)受 KillDoc的影響。例如，可用對(duì)話框詢問是繼續(xù)打印還是結(jié)束文檔： Sub PrintOrNot() 這是說明 KillDoc 方法的第一行。例如： 這是第一頁(yè)。 167。 系統(tǒng)對(duì)象 就象為窗體和圖形框設(shè)置屬性一樣，可為 Printer對(duì)象設(shè)置 CurrentX和 CurrentY屬性。缺省的 Zoom 屬性值為 100，指定輸出將按實(shí)際尺寸的百分之百來打印。通過改變 ScaleLeft和 ScaleTop的值，可改變打印頁(yè)的左邊距和上邊距。 系統(tǒng)對(duì)象 一、使用 Printer對(duì)象 對(duì)象的屬性 ? Printer對(duì)象的屬性，初始化時(shí)與 Windows“ 控制面板”中設(shè)置的缺省打印機(jī)的那些屬性匹配。 （ 3） vbEndDrag或 2：結(jié)束拖動(dòng)操作。 ? 例：設(shè)計(jì)一個(gè)窗體說明源和目標(biāo)如何相互作用。 ? 在運(yùn)行時(shí)將一個(gè)控件的 DragIcon屬性賦給另一個(gè)控件的同一屬性，由此就可選擇拖動(dòng)圖標(biāo)圖像： Set = ? 運(yùn)行時(shí)將一個(gè)控件的 Picture屬性賦給另一控件的 DragIcon屬性，由此也可設(shè)置 DragIcon屬性： Set = ? 使用 LoadPicture函數(shù)： Set =LoadPicture(“c: \Icons\”) 167。此屬性包含對(duì)應(yīng)圖形圖像的 Picture對(duì)象。其他情況與自動(dòng)方式是一樣的。在源對(duì)象被拖動(dòng)到目標(biāo)對(duì)象上的過程中，如果經(jīng)過其他對(duì)象，則在這些對(duì)象上會(huì)產(chǎn)生 DragOver事件，當(dāng)然在目標(biāo)對(duì)象
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1