1、。物件名稱屬性屬性值Label1Label1NamelblResultButton1Button1NamebtnRunButton1Button1Text執行結果btnRun執行結果基本介面物件進階介面物件1.1.標籤物件(Label)(Label)2.2.輸入方塊物件(EditText)(EditText)3.3.命令控制項(Button)(Button)4.4.單選鈕物件(RadioButton)(RadioButton)5.5.複選鈕物件(CheckBox)(CheckBox)1.開關式核取物件(ToggleButton)2.下拉式清單物件(Spinner)3.清單選項物件(ListVi
2、ew)4.容器物件(Panel)5.標籤頁物件(TabHost)6.瀏覽器物件(WebView)7 影像物件(ImageView)8.可捲動的容器物件(ScrollView)9.可水平捲動的容器物件(HorizontalScrollView)10.進度軸(ProgressBar)11.讓用戶調整進度(SeekBar)12.系統自動顯示關鍵字(AutoCompleteEditText)屬性說明-Main-MainNameName物件名稱(與變數名稱相同)建議使用有意義命名方式TypeType物件型態(唯讀)不提供使用者修改名稱Event NameEvent Name事件處理程序名稱(預設與物件名
3、稱相同)建議使用預設即可ParentParent父物件的名稱(預設為最上層的Activity)Activity)當在介面表單中，有加入PanelPanel容器物件時，則可以讓其他物件選擇。-Common properties-Common propertiesLeftLeft與父物件左邊界的距離(用來調整物件水平位置)TopTop與父物件上邊界的距離(用來調整物件垂直位置)WidthWidth調整物件的寬度設定物件的大小HeightHeight調整物件的高度EnabledEnabled設定物件是否可被使用(預設為True(True(可被使用)VisibleVisible設定物件是否可被看見(預
4、設為True(True(可被看見)TagTag用來註記物件的額外資訊TextText設定物件呈現的標題名稱屬性說明NameName物件名稱(與變數名稱相同)建議使用有意義命名方式TextText設定物件呈現的標題名稱TextStyleTextStyle設定文字樣式：1.1.Typeface(Typeface(設定字型)2.2.Style(Style(設定字體樣式：正常、粗體、斜體及粗斜體)3.3.Horizontal Alignment(Horizontal Alignment(水平排列：靠左、置中及靠右)4.4.Vertical Alignment(Vertical Alignment(垂直
5、排列：頂上、置中及底下)5.5.Size(Size(設定字體大小)6.6.Text Color(Text Color(設定字體顏色)DrawableDrawable三種模式(一)ColorDrawableColorDrawable(色彩模式)預設模式 1.Corner1.Corner radius(radius(設定圓滑角大小)2.Color2.Color(設定背景顏色)3.Alpha3.Alpha(設定深淺度)(二)GradientDrawableGradientDrawable(漸層模式)(三)BitmapDrawableBitmapDrawable(圖片模式)物件名稱屬性屬性值EditT
6、ext1EditText1NameedtUserNameEditText1EditText1Hint Text輸入帳號屬性說明NameName物件名稱(與變數名稱相同)建議使用有意義命名方式TextText使用者輸入的內容PasswordPassword設定為密碼文字方塊。例如：登入介面的密碼方塊。Single LineSingle Line單行文字方塊(預設為True)True)，如果設為FalseFalse則為多行文字方塊。例如：討論區與留言板。Input TypeInput Type設定使用者允許輸入內容的資料型態。1.1.NUMBERS(NUMBERS(整數型態)2.2.TEXT(TE
7、XT(文字型態)3.3.PHONE(PHONE(電話號碼型態)4.4.DECIMAL NUMBERS(DECIMAL NUMBERS(小整數型態)Hint TextHint Text提示字(用來提醒使用者，該欄位要輸入的資料類型)Hint ColorHint Color設定提示字的顏色WrapWrap當Single LineSingle Line設定為FalseFalse則為多行文字方塊預設值TrueTrue代表會自動換行；FalseFalse代表不會自動換行【實作】物件名稱屬性屬性值EditText2EditText2NameedtPasswordEditText2EditText2Pass
8、wordTrueEditText2EditText2Hint Text輸入密碼物件名稱屬性屬性值EditText3EditText3NameedtTalkAreaEditText3EditText3Single LineFalseEditText3EditText3Hint Text輸入留言內容EditText3EditText3WrapTrue物件名稱屬性屬性值Buton1Buton1NamebtnLoginButon1Buton1Text登入屬性說明NameName物件名稱(與變數名稱相同)建議使用有意義命名方式TextText設定物件呈現的標題名稱TextStyleTextStyle設定
9、文字樣式：1.Typeface1.Typeface(設定字型)2.Style2.Style(設定字體樣式：正常、粗體、斜體及粗斜體)3.Horizontal3.Horizontal Alignment(Alignment(水平排列：靠左、置中及靠右)4.Vertical4.Vertical Alignment(Alignment(垂直排列：頂上、置中及底下)5.Size5.Size(設定字體大小)6.Text6.Text Color(Color(設定字體顏色)物件名稱事件功能Buton1Buton1Click當使用者按一下Buton鈕觸發的事件Buton1Buton1LongClick當使用者
10、長按一下Buton鈕觸發的事件屬性說明DrawableDrawable一、Default Default DrawableDrawable(預設)二、StatelistStatelist DrawableDrawable (一)Enabled)Enabled DrawableDrawable(正常按鈕)1.ColorDrawable1.ColorDrawable(色彩模式)預設模式 (1)Corner radius(1)Corner radius(設定圓滑角大小)(2)Color(2)Color(設定背景顏色)(3)Alpha(3)Alpha(設定深淺度)2.GradientDrawable2
11、.GradientDrawable(漸層模式)3.BitmapDrawable3.BitmapDrawable(圖片模式)(1)Image file(1)Image file(圖檔)(二)Disabled)Disabled DrawableDrawable(沒有作用按鈕)(三)Pressed)Pressed DrawableDrawable(按下按鈕)-Sub btnLogin_ClickIf edtUserName.Text=OR edtPassword.Text=Then Msgbox(您尚未輸入帳號或密碼哦!,產生錯誤.)Else Dim Username As String Dim P
12、assword As String Username=edtUserName.Text Password=edtPassword.Text If Username=LeechPhd AND Password=123456 Then Msgbox(您是合法使用者！,系統回覆)Else Msgbox(您是非法使用者！,系統回覆)End IfEnd If屬性功能NameName設定控制項的名稱TextText設定控制項的內容CheckedChecked當Checked屬性的屬性值為True時，代表被核取(勾選)，當Checked屬性的屬性值為False時，代表不核取(不勾選)。預設值為False。I
13、f RadioButton1.checked=True Then 判斷控制項是否被選取 End If屬性功能NameName設定控制項的名稱TextText設定控制項的內容CheckedChecked當Checked屬性的屬性值為True時，代表被核取(勾選)，當Checked屬性的屬性值為False時，代表不核取(不勾選)。預設值為False。If CheckBox1.checked=True Then 判斷控制項是否被選取 End If程式檔案名稱ch11-7B.b4ach11-7B.b4a01010202030304040505060607070808090910101111121213
14、13141415151616171718181919202021212222232324242525Sub Sub btnRun_ClickbtnRun_ClickIf If edtName.TextedtName.Text=Then=Then MsgboxMsgbox(您尚未輸入姓名哦!,!,產生錯誤.).)ElseElse Dim Temp As String Dim Temp As String Temp=Temp=edtName.TextedtName.Text&同學 您好：&CRLFCRLF Temp=Temp&Temp=Temp&你喜歡的科目為：&CRLFCRLF If If ch
15、kProgram.CheckedchkProgram.Checked=True Then=True Then Temp=Temp&Temp=Temp&chkProgram.TextchkProgram.Text&CRLFCRLF End If End If If If chkDB.CheckedchkDB.Checked=True Then=True Then Temp=Temp&Temp=Temp&chkDB.TextchkDB.Text&CRLFCRLF End If End If If If chkDS.CheckedchkDS.Checked=True Then=True Then T
16、emp=Temp&Temp=Temp&chkDS.TextchkDS.Text&CRLFCRLF End If End If If If chkSA.CheckedchkSA.Checked=True Then=True Then Temp=Temp&Temp=Temp&chkSA.TextchkSA.Text&CRLFCRLF End If End If If If chkComputer.CheckedchkComputer.Checked=True Then=True Then Temp=Temp&Temp=Temp&chkComputer.TextchkComputer.Text&CRLFCRLF End If End If lblResult.TextlblResult.Text=Temp=TempEnd IfEnd IfEnd SubEnd Sub程式碼Dim dpi As Dim dpi As LayoutValuesLayoutValuesdpi=dpi=GetDeviceLayoutValuesGetDeviceLayoutValuesMsgboxMsgbox(dpi,(dpi,您的手機解析度)
