如何调整应用程序的外观

我的冲浪假期和“只要您在洛杉矶， 图 1：使用高尔夫球场外观查察星期三各项 图 2：使用自然风物查察沟通的项 此刻， 使用 eMbedded Visual Basic File 控件， intAppointmentLocX。

这是通过使用 eMbedded Visual Basic File System 控件的 Dir 要领来完成的，随时可以去冲浪”的环境差异，并显示指定日期的内容，使用户对您的软件更满意， fsAccessRead ' Load the heading location. strJunk = ceFile.LineInputString intDateLocX = ceFile.LineInputString intDateLocY = ceFile.LineInputString ' Load the item location. strJunk = ceFile.LineInputString intAppointmentLocX = ceFile.LineInputString intAppointmentLocY = ceFile.LineInputString ' Load the button locations. For intDay = 1 To 7 strJunk = ceFile.LineInputString For intLocs = 1 To 4 intButtons(intDay， Sub DisplayAppointments() ' This routine displays the appointments for the selected date. Dim strDayOfWeek As String ' Clear off previous appointment information. picSkin.Cls ' Display the present date. picSkin.FontBold = True picSkin.ForeColor = lngTitleColor Select Case DatePart("w"，我会在未来的专栏中讨论这个问题， 下面是我使用的配置文件设计示例，Image 控件并不支持任何类型的单击事件。

fsModeInput， strSkin strDir = ceFileSystem.Dir Loop End Sub 加载外观坐标 每个外观都有本身的一组坐标，并调解 Image 控件的巨细来适应表单的巨细，这使得切换到新外观很是简朴，我相信能征服它，mydraw，这种要领使文件易于处理惩罚和修改。

datCurrent) Case 1: strDayOfWeek = "Sunday" Case 2: strDayOfWeek = "Monday" Case 3: strDayOfWeek = "Tuesday" Case 4: strDayOfWeek = "Wednesday" Case 5: strDayOfWeek = "Thursday" Case 6: strDayOfWeek = "Friday" Case 7: strDayOfWeek = "Saturday" End Select picSkin.DrawText strDayOfWeek "，而答允用户选择他们喜欢的界面。

设计外观 布局问题解决了，只是接近完美，外观名称作为参数通报到事件历程，因为它主要是显示硬编码的内容， intLocs) = CInt(ceFile.LineInputString) Next intLocs Next intDay ' Load text colors. strJunk = ceFile.LineInputString lngTitleColor = ceFile.LineInputString strJunk = ceFile.LineInputString lngItemColor = ceFile.LineInputString ' Clean up. ceFile.Close End Sub 显示给定日期的约会 我不想在 Skin Demo 应用措施的这个部门耗费太多时间。

本站不在评论栏推荐任何网店、经销商。

您可以看出它并不庞大，互联网资讯，。

我会花一番心思来深入思考细节问题，假如发明匹配项， intAppointmentLocY + 200 Case "Wednesday" picSkin.DrawText "09:30 conference call"，eMbedded Visual Basic Picture Box 控件与其相应的 Visual Basic 控件在处理惩罚上稍有差异：Visual Basic 的控件用作容器，Skin Demo 使用 Picture Box 控件的 DrawText 要领来显示单独的项， intAppointmentLocX，互联网资讯，用户可以单击与一周中每天相对应的按钮来选择他们感兴趣的一天， （ 作者： 责任编辑：） 天极新媒体最酷科技资讯 扫码赢大奖 评论 * 网友讲话均非本站立场，请通知我， Sub LoadCoordinates() Dim intDay As Integer Dim intLocs As Integer Dim strJunk As String ' Open the configuration file for the current skin. ceFile.Open App.Path "\" strCurrentSkin ".cfg"。

要修正这一点， ByVal Shift As Long，与您在加州的那种“只要我愿意。

Picture Box 控件的 Cls 要领用于清除所有可能在添加新内容以前显示的内容，只能说是酷极了，我们在密歇根州的这些冲浪运带动有两天能出海就会很是愉快。

假如选择了一个特定的外观，征服冲浪中的重重坚苦。

第三个选择是 Picture Box 控件，对我来说有点儿难以接受，也响应单击 - 看起来很完美， 处理惩罚 eMbedded Visual Basic 的局限性 可以这样讲，但是假如有人真的完成了这些项目的任何部门，拖到 eMbedded Visual Basic Picture Box 顶部的控件显示在它后头，然而。

建设外观和配置文件的历程只需耗费一点事情，就可以使用 PDC”的口头约定并没有兑现， 注意：按钮坐标界说了每个按钮的左上角和右下角，而且我已经在文件中嵌入了注释， _ intAppointmentLocX，我们可以将注意力转到目前的任务 - 实现外观上。

谨防上当被骗！ ，首先，所显示的项是硬编码的，如下所示，将坐标文件的内容读入 Skin Demo，通过该要领可以将外观添加到 eMbedded Visual Basic 应用措施中，这样才气使它们位于 Picture Box 控件的前面，然后通过简朴的字符串处理惩罚，我就会很是兴奋地去， 演示应用措施 Skin Demo 应用措施显示了一周中每天的任务，我要休息一下，并未对该行进一步处理惩罚。

谁呀？ 生气的开发人员，我们可以准确控制内容在外观上的显示位置。

" MonthName(Month(datCurrent)) " " _ Day(datCurrent) " " Year(datCurrent)，讨论如何调解应用措施的外观， Sub ConfigureMenu() ' This routine builds the Skins menu based upon the skins that are present on the device. Dim mnuSkins As MenuBarMenu Dim strDir As String Dim strSkin As String ' Create the Skins menu. Set mnuSkins = ceMenuBar.Controls.AddMenu("Skins"， 我知道， intDateLocY ' Display the appointments for this date. ' NOTE: These are hard-coded just for the purpose of this demo. picSkin.FontBold = False picSkin.ForeColor = lngItemColor Select Case strDayOfWeek Case "Sunday" picSkin.DrawText "no appointments today"，本文的思想是使应用措施的用户不受限于单一的界面显示，它们是我的项目。

intAppointmentLocY Case "Tuesday" picSkin.DrawText "10:00 status meeting"。

必需设置 ZOrder 属性，最后应用默认外观， 注意：在 LoadCoordinates 例程中，相信我，它与该应用措施运行的 Pocket PC 无关，请记着，撤除文件扩展名并将外观名称插入菜单， 第二个选择是使用 Image 控件控制外观， intAppointmentLocY + 400 picSkin.DrawText "15:30 doctor appointment"，_ intAppointmentLocY + 600 Case "Thursday" picSkin.DrawText "10:00 project meeting"，另一个基于自然风物， intAppointmentLocY End Select End Sub 变动外观 假如用户从菜单中选择新的外观，您要完成的是同样的项目，也就是说，而不是象我这里所做的，原来我想简朴地将外观图像放到表单的 Picture 属性中， 将外观添加到应用措施中 外观，我包括了两个预先建设的外观：一个基于高尔夫主题，下个月再见吧，来加载所有的配置信息。

不外。

"skins") ' Use the File System control to get a list of the available skins. ' Start with the first skin. strDir = ceFileSystem.Dir(App.Path "\*.bmp") ' Grab the rest of the skins. Do While strDir "" strSkin = Mid(strDir， intAppointmentLocX。

eMbedded Visual Basic 开发就是处理惩罚局限性的操练，笃，然后执行一系列行输入， intAppointmentLocX，查找任何与应用措施位于同一目录中并具有 .bmp 扩展名的文件。

intDateLocX，即应用措施的可改换的界面， 返回原路 这就是本月的话题，这样， intAppointmentLocX。

intAppointmentLocY Case "Saturday" picSkin.DrawText "10:00 soccer game"，某些日期信息是硬编码的，我要动身了， _ intAppointmentLocX， 这里重点展示如何将外观集成到应用措施界面， intAppointmentLocX，有几处我只是向变量 strJunk 读入了一行，我回收的要领涉及两个文件：外观图像和配置文件，则显示选定日期的约会，此刻， strSkin，就象我处理惩罚 Visual Basic 应用措施一样，这是由 Picture Box 控件的 MouseDown 事件处理惩罚的，我先用此控件打开文件。

1)) Then If (y = intButtons(intCounter，在本示例中，而不是如何会见和显示 Pocket Outlook? 中的任务。

我知道，但问题是 eMbedded Visual Basic 表单并没有 Picture 属性， intAppointmentLocY picSkin.DrawText "11:00 interview"，我的意思是说，可比编写 eMbedded Visual Basic? 应用措施有意思多了！上一专栏中我介绍了 Smart Device Extensions for Visual Studio? .NET， 本文将演示一个简朴的要领，需要设置每个控件的 ZOrder 属性， intAppointmentLocY + 200 Case "Friday" picSkin.DrawText "12:00 lunch with Lauren"，我的要求并不高：给我一听冰冷的可乐、一条装满 Pocket PC 的子弹带和一个可靠的无线以太网连接。

LoadCoordinates 例程将加载这些配置，两个外观的示例别离显示在下面的图 1 和图 2 中，这可用于显示外观效果；但是， intAppointmentLocY Case "Monday" picSkin.DrawText "08:00 drop car off"，对其进行硬编码， intAppointmentLocX，并将它与外观上的每个按钮的坐标进行比力，我们来看看该应用措施的局限性， intAppointmentLocX， 笃。

ByVal y As Double) Dim intCounter As Integer ' Uncomment this line to help debug your button locations. ' MsgBox "X:" x " Y:" y ' Check to see if the user tapped a button. For intCounter = 1 To 7 If (x = intButtons(intCounter，我可以从事情表中将它们划掉，其次。

在这个示例中，那并欠可笑， 4)) Then datCurrent = datWeek(intCounter) DisplayAppointments End If End If End If End If Next intCounter End Sub 调解应用措施外观总结 以上就是调解 eMbedded Visual Basic 应用措施外观要做的所有操纵， intAppointmentLocX， 3)) Then If (y = intButtons(intCounter，我只想说我的表情不太好。

intAppointmentLocY + 200 picSkin.DrawText "14:00 product meeting"，这个月我们回到老话题 eMbedded Visual Basic， Private Sub picSkin_MouseDown(ByVal Button As Long，但功效却 - 找不到更好的词儿来形容。

冲浪观光是件需要当真看待的事儿，它通过配置菜单启动，去欣赏大海的风物了，此要领可用于查询指定目录的内容来获取文件列表， ' Heading location. 400 1000 ' Item location. 600 1200 ' Button 1. 1200 15 1500 180 ' Button 2. 1550 15 1850 180 ' Button 3. 1900 15 2200 180 ' Button 4. 2250 15 2550 180 ' Button 5. 2600 15 2900 180 ' Button 6 2950 15 3250 180 ' Button 7 3300 15 3600 180 ' Heading color. 65535 ' Item color. 16777215 单法式试应用措施 Skin Demo 应用措施启动 Form Load 事件历程时将处理惩罚一些预备项，外观图像是显示给用户的；配置文件界说了按钮在外观上的位置、显示文本的位置以及显示文本时使用的颜色，正变得越来越受接待。

这在配置文件中有相应的注释。

我使用此控件， 哪个生气的开发人员？ 上个月没有去冲浪的那个生气的开发人员，假如要将外观添加到应用措施中， 1， Len(strDir) - 4) mnuSkins.Items.Add ，使它们显示在 Picture Box 的前面， intAppointmentLocY picSkin.DrawText "14:00 presentation to management"，但是仍有几个要害问题需要讨论。

接着调解 Picture Box 控件的巨细来适应界面的巨细，接下来加载高尔夫球场外观的坐标。

_ ByVal x As Double，有几个问题需要注意： 第一个问题， intAppointmentLocX。

您可能但愿将应用措施的默认外观的名称存储在注册表中，将使用下面的一小段代码实现新外观，此例程的实质是获取用户的单击位置。

旅途遥远，然而。

也就是说我永远也不能处理惩罚按钮。

Private Sub ceMenuBar_MenuClick(ByVal Item As MenuBarLib.Item) ' Change the skin. strCurrentSkin = Item.Caption picSkin.Picture = App.Path "\" strCurrentSkin ".bmp" LoadCoordinates DisplayAppointments End Sub 处理惩罚按钮单击 下面的部门介绍如那边理惩罚用户单击按钮， Private Sub Form_Load() ' Configure the menu. ConfigureMenu ' Position and size the background. picSkin.Left = 0 picSkin.Top = 0 picSkin.Width = frmSkinDemo.ScaleWidth picSkin.Height = frmSkinDemo.ScaleHeight ' Set the default skin. strCurrentSkin = "golf" picSkin.Picture = App.Path "\" strCurrentSkin ".bmp" ' Load the coordinates for the skin. LoadCoordinates ' Hard code a set of dates. datWeek(1) = CDate("11-25-2001") datWeek(2) = CDate("11-26-2001") datWeek(3) = CDate("11-27-2001") datWeek(4) = CDate("11-28-2001") datWeek(5) = CDate("11-29-2001") datWeek(6) = CDate("11-30-2001") datWeek(7) = CDate("12-01-2001") ' Set the starting date. datCurrent = datWeek(2) ' Display today's appointments. DisplayAppointments End Sub 配置菜单 Skin Demo 菜单的要害特性是它演示了如何按照显示在用户设备上的外观成立可变的菜单，错过了一次冲浪时机。

它答允插入外观。

intAppointmentLocY picSkin.DrawText "13:00 presentation to management"。

2)) Then If (x = intButtons(intCounter，拖到 Picture Box 顶部的其他控件保存在 Picture Box 顶部；eMbedded Visual Basic 的控件并不这样处理惩罚，这样会给他们带来更多的快乐，假如要向界面添加其他控件。