PDA项目开发经验总结

       先说一下项目的特点和开发流程把。使用工具为vb.net2005，在sharp的pda上运行的软件，型号为RZ1502。具备无线上网，蓝牙，红外线扫描等功能。

1。先是在pc上建立普通的windows application工程。

2。再建立wince工程，

一． 语言

1.      函数

①        转换函数

CInt ( “ 1 ” )

CDBL  (“1”)

 

②        Format

I.       数值

Format(CDbl( str ), "##,##0.##")

 

③        ASC 码

I.       取得 ASC 码 Asc(Mid( str , i, 1))

II.    通过 ASC 码取得字符 Chr(intAsc)

④        日期函数

I.       取得下个月的最后一天

DateAdd("d", -1, Format(DateAdd("m", 2, strYMD), "yyyy/MM/01")).ToString()

“ MM ” 为月份， ” mm ” 则为分钟。区分大小写

 

⑤        弹出框

I.       信息 对话 框

Dim response As MsgBoxResult

MsgBox(" 登録しますか？" , MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, " 登録確認" )

    If response = MsgBoxResult.Ok Then  End If

II.    输 入 对话 框

Dim myValue As Object
message = " 请输 入数 值 ，数 值 在 1-3 之 间 ！ " ' 设 定 对话 框提示信息
title = " 输 入提示框 ！ " ' 设 置 对话 框 标题
defaultValue = "1" ' 设 定 对话 框中缺省的数 值
myValue = InputBox ( message , title , defaultValue , 100 , 100 )

' 设 定 对话 框在左上角坐 标 位于 桌面 （ 100 ， 100 ）区域 显 示

⑥        InStr ： 查找字符串中特定自负的位置，返回整型，第一个参数是开始位置

Eg. InStr(1, str 数量 , ".")

⑦       Control.SelectNextControl 激活下一个控件（就是将焦点移动过去）

Eg. Me .SelectNextControl(Me.ActiveControl, True, True, True, True)

其中 ActiveControl 指的是活动的控件

⑧       使用 SendKeys.Send("{ENTER}") 代码可以实现键盘的敲击

 

2.      类

①        I/O 流

I.       向文件写入数据

If e.KeyCode = Keys.Enter Then

            sw = New StreamWriter(strPath 集計, False, System.Text.Encoding.Default)

            For i = 1 To UBound(G_ARR 集計, 1)

                For j = 1 To UBound(G_ARR 集計, 2)

                    sw.Write(G_ARR 集計(i, j))

                Next

                sw.WriteLine()

            Next

            sw.Close()

        End If

II.    将数据读取到 2 维数组中

        sr = New StreamReader(strPath, System.Text.Encoding.Default)

        i = 1

        Do

            array_line = Split(sr.ReadLine(), ",")

            For j = 0 To UBound(array_line)

                array(i, j + 1) = array_line(j)

            Next

            If sr.Peek = -1 Then

                Exit Do

            End If

            i = i + 1

        Loop

III.                            判断是否数据流读取到最后一行

        If sr.Peek = -1 Then

            PsGetDataFor 年月日= False

            Exit Function

        End If

IV.    创建文件

        Dim sw As StreamWriter

        If File.Exists(C_PATH 入出庫) = False Then

            sw = File.CreateText(C_PATH 入出庫)

            sw.Close()

        End If

        File 类没有释放自己的成员，所以我是用了 StreamWriter 接收他，用来施放

 

②        Dns

Dns 类 是一个静 态类 ，它从 Internet 域名系 统 (DNS) 检 索 关 于特定主机的信 息