用 eVB編寫移動應用程式

2022-02-11 18:00:02 字數 2352 閱讀 4874

用 embedded visual basic 編寫移動應用程式

larry roof

tonked.com

2023年5月9日 本文最初發表在 msdn online voices 的 two for the road 專欄(

選擇「windows ce for the pocket pc」模板,然後單擊「開啟」按鈕。 將建立乙個新工程並將該工程載入到 evb 設計環境。

構建介面使用「窗體」視窗和「工具箱」構建使用者介面,其中包括文字框、命令按鈕、定時器控制項,如下圖所示。

圖 1:「hello world」的初始窗體

使用下表配置窗體和控制項的屬性。

物件

屬性

form1

- name

frmhelloworld

- caption

hello world

text1

- name

txtdisplay

- backcolor

black

- font

tahoma 22

- forecolor

green

- height

675- left

60- text

(空字串)

- top

180- width

3375

command1

- name

cmdchangedirection

- caption

改變方向

- height

255- left

60- top

960- width

3375

timer1

- name

cetimer

- enabled

false

- interval

200新增**在「工程」視窗中,選擇project1。在「屬性」視窗中,將「名稱」更改為「helloworld」。

開啟窗體模組的「**」視窗。在模組的「一般宣告」部分新增以下**行:

dim strdirection as stringdim strmessage as stringdim strtemp as string

變數 strdirection

將用於跟蹤字幕滾動的方向。變數 strmessage

將用於儲存在滾動字幕顯示區顯示的訊息。變數 strtemp

用於處理在字幕中顯示的訊息。

在 formload事件過程中插入以下**:

private sub form_load()' 初始化變數。  strdirection = "向前"  strmessage = "嗨,evb 很酷吧?"  strtemp = string(30, asc(" ")) & strmessage  ' 啟動字幕。  cetimer.enabled = trueend sub

該**首先初始化該程式自始至終使用的三個字串變數,然後開啟定時器控制項,定時器控制項繼而執行字幕。

在定時器控制項的 timer 事件過程中插入以下**:

private sub cetimer_timer()' 根據滾動的方向,將該' 字串最左邊或最右邊的字元' 取走並將其附加到相反的一端。  if (strdirection = "向前") then    strtemp = right(strtemp, len(strtemp) - 1) & _              mid(strtemp, 1, 1)  else    strtemp = right(strtemp, 1) & mid(strtemp, 1, _              len(strtemp) - 1)  end if  ' 顯示字串,讓人感覺' 文字正在滾動。  txtdisplay.text = strtemp  end sub

該**首先確定字幕滾動的方向。然後,它使用 evb 的 right、len 和 mid 函式來處理顯示的字串,使該應用程式具有滾動字幕的外觀。

在 cmdchangedirection 控制項的 click 事件中插入以下**。

private sub cmdchangedirection_click()' 切換方向標記。  select case strdirection    case "向前"      strdirection = "向後"    case "向後"      strdirection = "向前"  end selectend sub

上述幾行**處理用於跟蹤字幕滾動方向的標記切換。

這就是乙個應用程式。您的第乙個應用程式構建完畢。

用PB編寫郵件應用程式

圖1 2 閱讀郵件 使用者資訊在伺服器上通過驗證以後,乙個有效的郵件會話就建立了,接下來要做的工作就是接發郵件。pb用乙個mailmessage物件來描述一封郵件,該物件封裝了郵件的主題 位址 訊息體和附件等資訊。圖1是郵件應用程式的閱讀介面,它列出了收件箱中的所有郵件,可選擇其中一封進行閱讀。主視...

用PB編寫郵件應用程式

由於受到強大資料庫功能的掩蓋,pb的郵件功能鮮為人知。在vb中可以輕鬆地利用cdo控制項發郵件 delphi中用nm tp 而pb中的郵件函式比它們更靈活 方便。pb以其獨特高效的資料庫訪問技術,贏得了廣大程式設計師的青睞。從表面上看,它似乎只適合於開發資料庫應用程式,而事實上,pb遵照信報介面ma...

用BCB編寫多執行緒應用程式

隨著windows系統的全球性普及,多執行緒技術已越來越多地運用到許多軟體設計中。使用多執行緒技術可全面提高應用程式的執行效率。以前為了實現多執行緒程式設計,基本上都是呼叫一系列的api函式,如createthread resumethread等,不容易控制,還容易出錯。在使用bcb以後,我才發現原...