Date: Thu, 11 Dec 2003 13:39:23 -0600 (CST) From: Mark Jacobson To: 810-030-01@uni.edu Subject: [810-030-01] Palindromes.txt 8 1/2 by 14 inch handout Hi VB students, The handout entitled palindromes.txt was given out on Tuesday, in the 2nd to last class. It has the code for making graphic palindromes and mirroring a graphic from Left to Right, from Top to Bottom, from Northeast to Southwest, etc. Here is what the mnuLeftToRight_Click() menu choice code looked like, which we looked at in class today. Private Sub mnuLeftToRight_Click() Dim X As Single Dim Y As Single Dim width As Single width = pic.ScaleWidth For X = 0 To width / 2 For Y = 0 To pic.ScaleHeight pic.PSet (width - X, Y), pic.Point(X, Y) Next Y Next X End Sub Here is the code that loaded the F*R*I*E*N*D*S TV show photograph into the PictureBox named pic. Private Sub mnuFriendsRectangular_Click() pic.Picture = LoadPicture("Z:\web\P\basic\friendsoriginal.gif") End Sub Private Sub mnuFriendsSquare_Click() pic.Picture = LoadPicture("Z:\web\P\basic\friends.gif") End Sub The final exam is on Thursday, 10-11:50 a.m. I will put an updated study guide/outline on the web page sometime on Sunday or on Monday, so you have it either 3 days or 4 days before the final exam. The final exam will be comprehensive. The study guides and the entire web site for the class, as well as your old quizzes and exam are good to review and practice with. Mark