📄 ch36.htm
字号:
<blockquote>
<tt><font FACE="Courier"><p>Private Sub Form_Resize()<br>
'<br>
' handle form resizing<br>
'<br>
If Me.WindowState <> vbMinimized Then<br>
ListView1.Left = 0<br>
ListView1.Top = tbrMain.Height<br>
ListView1.Width = Me.ScaleWidth<br>
ListView1.Height = Me.ScaleHeight -
tbrMain.Height - StatusBar1.Height<br>
End If<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<h3><b><a NAME="TheControlBuildingCode">The Control Building Code</a></b></h3>
<p>Three of the controls (<tt><font FACE="Courier">listview</font></tt>, <tt><font
FACE="Courier">toolbar</font></tt>, and <tt><font FACE="Courier">statusbar</font></tt>)
require extensive setup. While this could be done at design time using the custom property
boxes, it is easier to modify the properties if you build the controls at run-time. </p>
<p>Add a new subroutine called <tt><font FACE="Courier">BuildStatusBar</font></tt> and
enter the code shown in Listing 36.14. </p>
<hr>
<blockquote>
<b><p>Listing 36.14. Adding the <tt><font FACE="Courier">BuildStatusBar</font></tt>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub BuildStatusBar()<br>
'<br>
' create details of status bar display <br>
'<br>
Dim I As Integer<br>
'<br>
For I = 1 To 4<br>
StatusBar1.Panels.Add ' Add
Panel objects.<br>
StatusBar1.Panels(I).AutoSize =
sbrContents<br>
Next I<br>
<br>
With StatusBar1.Panels<br>
.Item(1).Style = sbrText<br>
.Item(2).Style = sbrCaps ' Caps lock<br>
.Item(3).Style = sbrIns ' insert<br>
.Item(4).Style = sbrDate ' date<br>
.Item(5).Style = sbrTime ' time<br>
End With<br>
'<br>
StatusBar1.Panels(1).Text = "Talk Mail" & Space(50)<br>
StatusBar1.Style = sbrNormal<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>The code in Listing 36.14 sets up a status bar that will show the status of the <tt><font
FACE="Courier">CAPS</font></tt> and <tt><font FACE="Courier">INS</font></tt> buttons, the
date and time, and reserve some space for a status message. </p>
<p>Next, add a new subroutine called <tt><font FACE="Courier">BuildListView</font></tt>
and enter the code shown in Listing 36.15. </p>
<hr>
<blockquote>
<b><p>Listing 36.15. Adding the <tt><font FACE="Courier">BuildListView</font></tt>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub BuildListView()<br>
'<br>
' build list view<br>
'<br>
Dim clmX As ColumnHeader<br>
Dim ItmX As ListItem<br>
Dim ImgX As ListImage<br>
'<br>
' set view properties<br>
ListView1.BorderStyle = ccFixedSingle <br>
ListView1.View = lvwReport<br>
ListView1.Sorted = True<br>
mnuViewItem(3).Checked = True ' show check on menu<br>
'<br>
' set column headers for detail view<br>
Set clmX = ListView1.ColumnHeaders. _ <br>
Add(, , "Subject",
ListView1.Width * 0.25)<br>
Set clmX = ListView1.ColumnHeaders. _ <br>
Add(, , "RecvDate",
ListView1.Width * 0.25)<br>
Set clmX = ListView1.ColumnHeaders. _ <br>
Add(, , "From", ListView1.Width
* 0.25)<br>
'<br>
' set large image list control<br>
imglstbig.ImageHeight = 32<br>
imglstbig.ImageWidth = 32<br>
Set ImgX = imglstbig.ListImages. _<br>
Add(, , LoadPicture(App.Path &
"\tmMsg32.ico"))<br>
Set ImgX = imglstbig.ListImages. _<br>
Add(, , LoadPicture(App.Path &
"\note32.ico"))<br>
'<br>
' set small image control<br>
imglstsmall.ImageHeight = 16<br>
imglstsmall.ImageWidth = 16<br>
Set ImgX = imglstsmall.ListImages. _<br>
Add(, , LoadPicture(App.Path &
"\tmMsg16.ico"))<br>
Set ImgX = imglstsmall.ListImages. _<br>
Add(, , LoadPicture(App.Path &
"\note16.ico"))<br>
'<br>
' link image and listview<br>
ListView1.Icons = imglstbig<br>
ListView1.SmallIcons = imglstsmall<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>The code in Listing 36.15 performs several tasks. First, columns are defined for the
detail view. Next, two image controls are initialized for the large and small icon views.
Finally, those two image controls are bound to the <tt><font FACE="Courier">listview</font></tt>
control so that the list view knows which icons to use when displaying the contents. </p>
<p>The last of the "build" routines is the <tt><font FACE="Courier">BuildToolBar</font></tt>
routine. This is the most involved of the three because it contains fourteen buttons (some
of them separators) with all their icons, tooltips, and keys. Add the new subroutine (<tt><font
FACE="Courier">BuildToolBar</font></tt>) and enter the code shown in Listing 36.16. </p>
<hr>
<blockquote>
<b><p>Listing 36.16. Adding the <tt><font FACE="Courier">BuildToolBar</font></tt> routine.<br>
<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub BuildToolBar()<br>
'<br>
' set up win95 tool bar<br>
'<br>
Dim ImgX As ListImage<br>
Dim BtnX As Button<br>
Dim tlbrPics(14) As String<br>
Dim tlbrKeys(14) As String<br>
Dim tlbrTips(14) As String<br>
Dim tlbrStyle(14) As Integer<br>
Dim x As Integer<br>
'<br>
tlbrPics(1) = "tmStart.ico" <br>
tlbrPics(2) = "tmEnd.ico"<br>
tlbrPics(3) = "tmstart.ico" <br>
tlbrPics(4) = "tmAdrBk.ico" <br>
tlbrPics(5) = "tmScan.ico"<br>
tlbrPics(6) = "tmstart.ico" <br>
tlbrPics(7) = "tmMsg16.ico" <br>
tlbrPics(8) = "tmRead.ico"<br>
tlbrPics(9) = "tmTrash.ico" <br>
tlbrPics(10) = "tmstart.ico" <br>
tlbrPics(11) = "vw-lrgic.bmp" <br>
tlbrPics(12) = "vw-smlic.bmp" <br>
tlbrPics(13) = "vw-list.bmp" <br>
tlbrPics(14) = "vw-dtls.bmp" <br>
'<br>
tlbrKeys(1) = "LOGIN"<br>
tlbrKeys(2) = "LOGOUT"<br>
tlbrKeys(3) = ""<br>
tlbrKeys(4) = "ADDRBOOK"<br>
tlbrKeys(5) = "SCANINBOX"<br>
tlbrKeys(6) = ""<br>
tlbrKeys(7) = "NEWMSG"<br>
tlbrKeys(8) = "READMSG"<br>
tlbrKeys(9) = "DELETE"<br>
tlbrKeys(10) = ""<br>
tlbrKeys(11) = "ICONS"<br>
tlbrKeys(12) = "SMALLICONS" <br>
tlbrKeys(13) = "LISTVIEW"<br>
tlbrKeys(14) = "DETAILS"<br>
'<br>
tlbrTips(1) = "Log In"<br>
tlbrTips(2) = "Log Out"<br>
tlbrTips(3) = ""<br>
tlbrTips(4) = "Address Book" <br>
tlbrTips(5) = "Scan InBox"<br>
tlbrTips(6) = ""<br>
tlbrTips(7) = "New Msg"<br>
tlbrTips(8) = "Read Msg"<br>
tlbrTips(9) = "Delete Msg"<br>
tlbrTips(10) = ""<br>
tlbrTips(11) = "Icons"<br>
tlbrTips(12) = "Small Icons" <br>
tlbrTips(13) = "List View"<br>
tlbrTips(14) = "Details"<br>
'<br>
imglstToolbar.ImageHeight = 16<br>
imglstToolbar.ImageWidth = 16<br>
'<br>
' fill image list<br>
For x = 1 To 14<br>
Set ImgX = imglstToolbar.ListImages. _<br>
Add(, , LoadPicture(App.Path
& "\" & tlbrPics(x))) <br>
Next x<br>
'<br>
' fill toolbar<br>
tbrMain.ImageList = imglstToolbar<br>
For x = 1 To 14<br>
Set BtnX = tbrMain.Buttons.Add <br>
BtnX.Key = tlbrKeys(x) <br>
BtnX.ToolTipText = tlbrTips(x)<br>
If tlbrTips(x) <> "" Then<br>
BtnX.Style =
tbrDefault<br>
BtnX.Image = x<br>
Else<br>
BtnX.Style =
tbrSeparator<br>
End If<br>
Next x<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<div align="center"><center>
<table BORDERCOLOR="#000000" BORDER="1" WIDTH="80%">
<tr>
<td><b>Note</b></td>
</tr>
<tr>
<td><blockquote>
<p>This routine refers to several icon files. These icons can be found on the CD-ROM that
ships with this book. They should have been copied to your local drive when you installed
the CD-ROM. Make sure you copy them to your project directory before you run the project.</p>
</blockquote>
</td>
</tr>
</table>
</center></div>
<h3><a NAME="TheMenuSupportRoutines"><b>The Menu Support Routines</b></a> </h3>
<p>There are four main menu branches: <tt><font FACE="Courier">File</font></tt>, <tt><font
FACE="Courier">Message</font></tt>, <tt><font FACE="Courier">View</font></tt>, and <tt><font
FACE="Courier">Help</font></tt>. Each branch is built as a menu array. You need to add
code to handle user selections for each menu branch. </p>
<p>First, add the code shown in Listing 36.17 to the <tt><font FACE="Courier">mnuFileItem_Click</font></tt>
event. </p>
<hr>
<blockquote>
<b><p>Listing 36.17. Adding the <tt><font FACE="Courier">mnuFileItem_Click</font></tt>
event code.<br>
<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Private Sub mnuFileItem_Click(Index As Integer)<br>
'<br>
' handle file menu stuff<br>
'<br>
Select Case Index<br>
Case 0 ' login <br>
MAPIStart <br>
Case 1 ' logout <br>
MAPIEnd <br>
Case 3 ' scan inbox<br>
MAPIScanInBox <br>
Case 4 ' addr book<br>
MAPIAddrBook <br>
Case 6 ' exit <br>
MAPIEnd <br>
Unload Me<br>
End Select<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>Next, add the code from Listing 36.18 to the <tt><font FACE="Courier">mnuMsgItem_Click</font></tt>
event. </p>
<hr>
<blockquote>
<b><p>Listing 36.18. Coding the <tt><font FACE="Courier">mnuMsgItem_Click</font></tt>
event.<br>
<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Private Sub mnuMsgsItem_Click(Index As Integer)<br>
'<br>
' handle msgs menu<br>
'<br>
Dim Itm As Object<br>
Dim x As Integer<br>
'<br>
Select Case Index<br>
Case 0 ' new<br>
MAPINewMsg <br>
Case 1 ' read <br>
If cMsgID <>
"" Then<br>
MAPIReadMsg
cMsgID<br>
End If<br>
Case 2 ' delete <br>
If ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -