導航:首頁 > 軟體知識 > 如何用記事本寫windows程序

如何用記事本寫windows程序

發布時間:2023-09-22 13:25:07

『壹』 如何用記事本編程

跟我學做記事本-編程實例
用VB做一個記事本實在不很復雜,我們完全可以通過向導來很方便地做出來。但本文只打算討論用手動方法製作記事本,旨在向VB初學者展示:學VB原來是如此容易!
通過閱讀、研究本文並按本文所述進行嘗試,初學者將學到很多東西,如怎樣使用RichText控制項來打開和保存文件,怎樣製作菜單、工具欄和狀態欄以及如何對其編寫代碼等。

第一章 讓我們的記事本馬上運行

急於求成是初學者共有的心願。那好,請按如下三個步驟做,我們的願望立即就可以實現!

步驟一:繪制界面。

新建一個標准EXE工程,將其Caption屬性改為「超級記事本」,點擊Icon屬性給它找個合適的Icon圖標。單擊菜單「工程」-「部件」,在彈出的「部件」對話框里找到Microsoft

RichText Box 6.0和公共對話框Microsoft Common Dialog 6.0並選中它們,單擊「確定」按鈕。這時左邊的工具欄上出現了我們剛才新添的兩個控制項了。在窗體上繪制RichText

Box和Commn Dialog,其中RichText Box的大小和位置可不用理睬,我們將在代碼中處理它,當然,有必要把它的ScrollBar屬性設為2-rtfVertical,這樣在打開和編輯文件時垂直滾動條才可用。

步驟二:編輯菜單。

按Ctrl+E調出菜單編輯器,我們來做如下幾個菜單:

一.文件菜單:

文件(第一層) mnuFile

新建(第二層) mnuNew

打開(第二層) mnuOpen

保存(第二層) mnuSave

- (第二層) mnuFileSep (分隔線)

退出(第二層) mnuExit

二.編輯菜單:

編輯(第一層) mnuEdit

復制(第二層) mnuCopy

剪切(第二層) mnuCut

粘貼(第二層) mnuPaste

- (第二層) mnuEditSep (分隔線)

全選(第二層) mnuSelecAll

三.搜索菜單:

搜索(第一層) mnuSearch

查找(第二層) mnuFind

查找下一個(第二層) mnuFindOn

四.幫助菜單:

幫助(第一層) mnuHelp

使用說明(第二層) mnuUsage

關於(第二層) mnuAbout

(註:各菜單項的快捷鍵請自行設置)

好了,其它的菜單項以後再根據需要添加。現在進入:

步驟三:編寫代碼。

'聲明查找變數

Dim sFind As String

'聲明文件類型

Dim FileType, FiType As String

'初始化程序

Private Sub Form_Load()

'設置程序啟動時的大小

Me.Height = 6000

Me.Width = 9000

End Sub

'設置編輯框的位置和大小

Private Sub Form_Resize()

On Error Resume Next '出錯處理

RichTextBox1.Top=20

RichTextBox1.Left=20

RichTextBox1.Height = ScaleHeight-40

RichTextBox1.Width = ScaleWidth-40

End Sub

'新建文件

Private Sub mnuNew_Click()

RichTextBox1.Text = "" '清空文本框

FileName = "未命名"

Me.Caption = FileName

End Sub

'打開文件

Private Sub mnuOpen_Click()

CommonDialog1.Filter = "文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowOpen

RichTextBox1.Text = "" '清空文本框

FileName = CommonDialog1.FileName

RichTextBox1.LoadFile FileName

Me.Caption = "超級記事本:" & FileName

End Sub

'保存文件

Private Sub mnuSave_Click()

CommonDialog1.Filter = "文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowSave

FileType = CommonDialog1.FileTitle

FiType = LCase(Right(FileType, 3))

FileName = CommonDialog1.FileName

Select Case FiType

Case "txt"

RichTextBox1.SaveFile FileName, rtfText

Case "rtf"

RichTextBox1.SaveFile FileName, rtfRTF

Case "*.*"

RichTextBox1.SaveFile FileName

End Select

Me.Caption = "超級記事本:" & FileName

End Sub

'退出

Private Sub mnuExit_Click()

End

End Sub

'復制

Private Sub mnuCopy_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

End Sub

'剪切

Private Sub mnuCut_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

RichTextBox1.SelText = ""

End Sub

'全選

Private Sub mnuSelectAll_Click()

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = Len(RichTextBox1.Text)

End Sub

'粘貼

Private Sub mnuPaste_Click()

RichTextBox1.SelText = Clipboard.GetText

End Sub

'查找

Private Sub mnuFind_Click()

sFind = InputBox("請輸入要查找的字、詞:", "查找內容",

sFind)

RichTextBox1.Find sFind

End Sub

'繼續查找

Private Sub mnuFindOn_Click()

RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

RichTextBox1.Find sFind, , Len(RichTextBox1)

End Sub

'使用說明

Private Sub mnuReadme_Click()

On Error GoTo handler

RichTextBox1.LoadFile "Readme.txt", rtfText '請寫好Readme.txt文件並存入程序所在文件夾中

Me.Caption = "超級記事本:" & "使用說明"

Exit Sub

handler:

MsgBox "使用說明文檔可能已經被移除,請與作者聯系。",

vbOKOnly, " 錯誤信息"

End Sub

'關於

Private Sub mnuAbout_Click()

MsgBox "超級記事本 Ver1.0 版權所有(C) 2001 土人",vbOKOnly,"關於"

End Sub

'設置彈出式菜單(即在編輯框中單擊滑鼠右鍵時彈出的動態菜單)

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As

Single, Y As Single)

If Button = 2 Then

PopupMenu mnuEdit, vbPopupMenuLeftAlign

Else

Exit Sub

End If

End Sub

'防止在切換輸入法時字體自變(感謝王必成先生提供此方案)

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeySpace Then

RichTextBox1.SelFontName = CommonDialog1.FontName

End If

End Sub

至此,我們的記事本可以編譯使用了。點擊菜單「文件」-「生成XXX.EXE」,回到桌面運行我們的記事本看看,是不是頗有成就感?

當然,這樣的記事本還比較粗糙,我們還需要做些工作,請看下一章。

第二章 美化程序界面

多數字處理軟體都有工具欄和狀態欄。工具欄和狀態欄除了能美化我們的程序使其更具有專業性質外,還給用戶帶來操作上的便利。現在我們就來做一做這兩樣東西。

一.工具欄

(一)製作工具欄

單擊「工程」-「部件」,選中Microsoft Windows Common Control 6.0並確定。這時,我們要用到的控制項就出現在左邊的工具欄上了。

要做工具欄,首先需要一個叫ImageList的控制項來裝載圖像。在程序界面上添加它,然後右鍵單擊此控制項,左鍵單擊「屬性」,彈出「屬性頁」對話框的「圖像」,再單擊「插入圖片」就可以一次性裝載圖片了(如不滿意,以後還可以添加)。圖片可在C:Microsoft

Visual _W95下選擇(這里假設你的VB安裝在C盤下)。注意了:在插入圖片時給每一張圖片註明關鍵字,以便在引用圖片時不至於混亂。如插入「新建」的圖片,我們在「關鍵字」欄註明「New」。

圖片有了,接下來在程序界面添加工具欄(ToolBar)。添加後工具欄就出現在菜單下面,右鍵單擊它,選擇「屬性」,在彈出的「屬性頁」對話框中的「通用」項作些設置,主要如下兩項:

1.「圖像列表」:選擇ImageList1

2.「樣式」:根據喜愛選擇1-trbStandard或者2-trbFlat

繼續點擊「屬性頁」的「按鈕」選項,插入若干按鈕。按鈕有多種樣式,請根據需要設置。這里請一定注意:每一個與用戶操作有關的按鈕都必須註明關鍵字、裝載圖片,如「新建」按鈕,在「關鍵字」項註明「新建」,在「圖像」項鍵入「New」(即ImageList1中的圖片關鍵字),需要的話還可以在「工具提示文本」項填入適當的提示語。

(二)編寫工具欄的按鈕代碼

工具欄按鈕的代碼編輯很簡單,可以按照下面的格式去編寫:

Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)

On Error Resume Next '出錯處理

Select Case Button.Key '按關鍵字選擇

Case "新建"

mnuNew_Click '等於菜單項「新建」被單擊

Case "打開" '等於菜單項「打開」被單擊

mnuOpen_Click

'......(繼續編寫其它按鈕的代碼)

End Select

End Sub

完成後試運行一下我們的程序,我們發現,有了工具欄之後,程序變得漂亮多了,只是有一個問題:打開一個較長的文檔後,編輯框的下拉滾動條向上的箭頭不見了。原因是:工具條佔用一定的空間。解決方法:將「設置編輯框的位置和大小」中的RichTextBox1.Top

= 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分別改為RichTextBox1.Top =

380,RichTextBox1.Height = Me.ScaleHeight - 400即可。

二.狀態欄

(一)製作狀態欄

狀態欄的英文名字叫StatusBar,在窗體上添加它後會默認出現在窗體的最下方。用滑鼠右鍵點擊它,調出「屬性頁」對話框,單擊「窗格」項,插入一些窗格,可以將各個窗格的「樣式」設置為:

0-sbrText 顯示文本,需編寫代碼

1-sbrCaps 顯示大小寫狀態,無需編程

2-sbrNum 顯示NumLock鍵開關狀態,無需編程

3-sbrIns 顯示Insert鍵狀態,無需編程

4-sbrScr1

5-sbrTime 顯示時間,不編程時時間不會隨系統時鍾變化

6-sbrDate 顯示日期,無需編程

注意:加進狀態欄後需將Form_Resze中的RichTextBox1.Height =

Me.ScaleHeight - 400改為RichTextBox1.Height = Me.ScaleHeight - 600。

(二)狀態欄根據其「樣式」屬性決定用不用編寫代碼(如上文所述)。下面舉些例子,讀者可以認真揣摩,從而達到舉一反三的效果。

例一:用戶選取了「新建」後,讓第一個窗格顯示:「目前狀態:正在打開文件《……》」。請將下面代碼寫進「打開」菜單裡面:

StatusBar1.Panels(1).Text = "目前狀態:正在打開文件"

& "《" &CommonDialog1.FileTitle & "》"

例二:讓第三個窗格顯示時間並讓時間跟隨系統時鍾變化。

首先,給程序加一個Timer控制項,將其Interval屬性設為1000。然後:

在Form_Load過程加入:StatusBar1.Panels(1).Text = Time;然後給Timer控制項編寫代碼:

Private Sub Timer1_Timer()

If StatusBar1.Panels(3).Text <> CStr(Time) Then

StatusBar1.Panels(3).Text = Time

End If

End Sub

例三:當編輯框的文本發生變化時讓第一個窗格顯示:「正在編輯文檔:文件名」。

Private Sub RichTextBox1_Chang()

StatusBar1.Panels(1).Text = "正在編輯文檔:" &

CommonDialog1.FileName

End Sub

辛苦了那麼久,我們現在已經擁有一個象模象樣的記事本了。這個記事本由於用了RichText控制項,理論上它能打開和編輯任意大的文檔,使用起來的確比Windows自帶的記事本方便得多。當然,還有一些其它的功能需要添加和完善,這就靠你慢慢去完成了。

『貳』 如何用電腦記事本寫程序(零基礎學習,之前基本不用電腦,只用手機。)

1.新建一個文本文檔(以Hello.java為例)

用記事本打開,然後編寫一個java程序,這里的類名要與文件名一致,後綴一定要修改為.java

public class Hello{

public static void main(String arg[]){

System.out.println("Hello World !");

}

}

2.打開cmd,進入你所編寫的java文件的目錄(這里放在桌面)

輸入:javac Hello.java進行編譯

之後就可以看到與你所編寫的java文件同目錄下出現了 Hello.class 說明編譯成功

再輸入java Hello執行

cmd中輸出結果正確

當然,你應該先建立Java環境

『叄』 如何用記事本寫windows程序

直接在桌面上右鍵,新建一個空白記事本,雙擊打開。方法二:開始--》運行,然後在裡面輸入 notepad 然後 回車 ,就打開記事本程序了。

1、點開始,在程序附件里找到記事本,單擊即可打開。

在windows操作系統中,記事本是一個小的應用程序,採用一個簡單的文本編輯器進行文字信息的記錄和存儲。

閱讀全文

與如何用記事本寫windows程序相關的資料

熱點內容
怎麼代理體育彩票 瀏覽:529
交易貓一般多久完成交易 瀏覽:16
應用程序有什麼用 瀏覽:839
扶貧助手微信小程序填錯怎麼改 瀏覽:60
西大街到棗園傢具市場怎麼坐車 瀏覽:1002
鼓樓菜市場有哪些 瀏覽:296
唯品會程序異常時怎麼回事 瀏覽:81
nba2k20怎麼交易明星球員 瀏覽:60
海康威視一級代理有哪些 瀏覽:806
mes數據互通有哪些 瀏覽:954
你是如何獲取房屋信息的 瀏覽:464
安全系統的技術是什麼 瀏覽:687
怎麼介紹醫院信息 瀏覽:130
拼多多的測圖數據哪裡看 瀏覽:892
如何評價梁寧產品思維 瀏覽:290
kpl數據分析師干什麼的 瀏覽:803
中國賣的好的外國產品有哪些 瀏覽:206
金融交易的核算是什麼 瀏覽:986
相親一天後怎麼發信息 瀏覽:991
有什麼小程序可以分析商業圈 瀏覽:243