New Page 2

<body> <div class="code"><div class="VisualBasic"><code><pre><div class="blockLevel0"><span class="keyword">Option Explicit Private </span>m_Deformation <span class="keyword">As </span>IDeformation2 <span class="keyword">Private Function </span>SlightlyComplicatedCalculation<span class="parenLevel1">(</span><span class="keyword">ByVal </span>Param1 <span class="keyword">As Long</span><span class="keyword">, ByVal </span>Param2 <span class="keyword">As Single</span><span class="parenLevel1">)</span> <span class="keyword">As Double</span></div><div class="blockLevel1"> <span class="keyword">Return </span><span class="parenLevel1">(</span>Param1<span class="keyword">+</span><span class="parenLevel2">(</span>Param2<span class="keyword">/</span><span class="magic_number">3</span><span class="keyword"><span class="magic_number">.</span></span><span class="magic_number">141</span><span class="keyword">-</span><span class="parenLevel3">(</span>Param1<span class="keyword">/</span><span class="magic_number">6</span> <span class="keyword">+ </span><span class="parenLevel4">(</span><span class="magic_number">2</span><span class="keyword">*</span>param1<span class="keyword">+</span>fn<span class="parenLevel5">(</span>x<span class="keyword">, </span><span class="parenLevel6">(</span>x<span class="keyword">+</span><span class="magic_number">1</span><span class="parenLevel6">)</span><span class="parenLevel5">)</span><span class="parenLevel4">)</span><span class="parenLevel3">)</span> <span class="keyword">+ </span><span class="magic_number">42</span><span class="parenLevel2">)</span><span class="parenLevel1">)</span> <span class="keyword">+ </span><span class="magic_number">11</span> </div><div class="blockLevel0"><span class="keyword">End Function Private Property Get </span>QueryString<span class="parenLevel1">(</span><span class="parenLevel1">)</span> <span class="keyword">As String</span></div><div class="blockLevel1"> <span class="comment">' Visual Basic does not support inline comments.</span> <span class="keyword">Dim </span>sql <span class="keyword">As String Dim </span>SomeCondition <span class="keyword">As String </span>SomeCondition <span class="keyword">= "<span class="string">FirstName=<span class="inline_string">'Smith'</span></span>" </span>sql <span class="keyword">= "<span class="string"><span class="inline_sql">SELECT </span>SomeField <span class="inline_sql">FROM </span>SomeTable <span class="inline_sql">WHERE </span></span>" </span><span class="keyword">& </span>SomeCondition QueryString <span class="keyword">= </span>sql </div><div class="blockLevel0"><span class="keyword">End Property Public Function </span>MakeUpSomeJs <span class="keyword">As String</span></div><div class="blockLevel1"> <span class="keyword">Dim </span>js <span class="keyword">As String </span>js <span class="keyword">= "<span class="string"><span class="inline_js">var </span>r = <span class="inline_js">function</span>() { <span class="inline_js">var </span>x = DoSomeJQueryStuff(); <span class="inline_js">return </span>x+1 }</span>" Return </span>js </div><div class="blockLevel0"><span class="keyword">End Function Public Function </span>MakeUpSomeJsThatWritesSql <span class="keyword">As String</span></div><div class="blockLevel1"> <span class="keyword">Dim </span>js <span class="keyword">As String </span>js <span class="keyword">= "<span class="string"><span class="inline_js">var </span>r = <span class="inline_js">function</span>() { <span class="inline_js">return </span><span class="inline_string">'<span class="inline_sql">SELECT </span>* <span class="inline_sql">FROM '</span> </span>+ name_of_table + <span class="inline_string">' <span class="inline_sql">WHERE '</span> </span>+ condition }</span>"</span>; <span class="keyword">Return </span>js; </div><div class="blockLevel0"><span class="keyword">End Function Private Sub </span>Form_Activate<span class="parenLevel1">(</span><span class="parenLevel1">)</span></div><div class="blockLevel1"> <span class="keyword">Static </span>AlreadyActivated <span class="keyword">As Boolean If </span>AlreadyActivated <span class="keyword">Then</span></div><div class="blockLevel2"> <span class="flow_of_execution">Exit Sub</span> <span class="comment">' Ensure that the rest of this routine is only executed when the form is first activated.</span> </div><div class="blockLevel1"> <span class="keyword">End If </span>AlreadyActivated <span class="keyword">= True Dim </span>OriginalPicture <span class="keyword">As </span>IPicture <span class="keyword">Dim </span>OriginalFilename <span class="keyword">As String Dim </span>OriginalDimensions <span class="keyword">As </span>Rect OriginalFilename <span class="keyword">= "<span class="string">OriginalImage.bmp</span>" Set </span>OriginalPicture <span class="keyword">= </span>LoadPicture<span class="parenLevel1">(</span>OriginalFilename<span class="parenLevel1">)</span> OriginalDimensions <span class="keyword">= </span>GetPictureDimensions<span class="parenLevel1">(</span>OriginalPicture<span class="parenLevel1">)</span> <span class="keyword">Dim </span>hdcOffscreen <span class="keyword">As Long Dim </span>hTemp <span class="keyword">As Long </span>hdcOffscreen <span class="keyword">= </span>CreateCompatibleDC<span class="parenLevel1">(</span><span class="keyword">Me</span><span class="keyword">.</span>hdc<span class="parenLevel1">)</span> hTemp <span class="keyword">= </span>SelectObject<span class="parenLevel1">(</span>hdcOffscreen<span class="keyword">, </span>OriginalPicture<span class="keyword">.</span>Handle<span class="parenLevel1">)</span> <span class="comment">' SelectObject returns a handle ot the previously selected object.</span> InitializeDeformation OriginalDimensions PaintOriginalImage hdcOffscreen<span class="keyword">, </span>OriginalDimensions PaintModifiedImage hdcOffscreen<span class="keyword">, </span>OriginalDimensions SelectObject hdcOffscreen<span class="keyword">, </span>hTemp <span class="comment">' Always select the original object (returned by the first call to SelectObject).</span> DeleteDC hdcOffscreen <span class="comment">' Always DeleteDC when finished with a hdc created by CreateCompatibleDC.</span> </div><div class="blockLevel0"><span class="keyword">End Sub Private Sub </span>InitializeDeformation<span class="parenLevel1">(</span><span class="keyword">ByRef </span>OriginalDimensions <span class="keyword">As </span>Rect<span class="parenLevel1">)</span></div><div class="blockLevel1"> <span class="comment">' Set up the transformation.</span> <span class="keyword">Dim </span>t <span class="keyword">As </span>Transform2 <span class="keyword">Set </span>t <span class="keyword">= New </span>Transform2 t<span class="keyword">.</span>Rotate Pi <span class="keyword">/ </span><span class="magic_number">4</span> <span class="keyword">Set </span>m_Deformation <span class="keyword">= </span>t <span class="comment">' The Transform2 class implements IDeformation2, making this assignment valid.</span> <span class="comment">' Calculate the dimensions of the modified image.</span> <span class="keyword">Dim </span>NewDimensions <span class="keyword">As </span>Rect NewDimensions <span class="keyword">= </span>OriginalDimensions m_Deformation<span class="keyword">.</span>ApplyToDimensions NewDimensions <span class="comment">' A simple rotation will move the boundaries of the picture so that it overlaps the x or y axis.</span> <span class="comment">' To keep the whole picture on the form, with the top left corner of the image on the top left corner</span> <span class="comment">' of the form, we must move the image.</span> t<span class="keyword">.</span>Translate <span class="keyword">-</span>NewDimensions<span class="keyword">.</span>Left<span class="keyword">, </span><span class="keyword">-</span>NewDimensions<span class="keyword">.</span>Top <span class="comment">' The dimensions of the modified image will need to be recalculated in PaintModifiedImage,</span> <span class="comment">' because we have changed t.</span> </div><div class="blockLevel0"><span class="keyword">End Sub Private Sub </span>PaintOriginalImage<span class="parenLevel1">(</span><span class="keyword">ByVal </span>hdcOffscreen <span class="keyword">As Long</span><span class="keyword">, ByRef </span>OriginalDimensions <span class="keyword">As </span>Rect<span class="parenLevel1">)</span></div><div class="blockLevel1"> <span class="comment">' Paint the original image, one pixel at a time.</span> <span class="keyword">Dim </span>x <span class="keyword">As Long Dim </span>y <span class="keyword">As Long For </span>y <span class="keyword">= </span><span class="magic_number">0</span> <span class="keyword">To </span>OriginalDimensions<span class="keyword">.</span>Bottom <span class="keyword">- </span><span class="magic_number">1</span></div><div class="blockLevel2"> <span class="keyword">For </span>x <span class="keyword">= </span><span class="magic_number">0</span> <span class="keyword">To </span>OriginalDimensions<span class="keyword">.</span>Right <span class="keyword">- </span><span class="magic_number">1</span></div><div class="blockLevel3"> SetPixel hdc<span class="keyword">, </span>x<span class="keyword">, </span>y<span class="keyword">, </span>GetPixel<span class="parenLevel1">(</span>hdcOffscreen<span class="keyword">, </span>x<span class="keyword">, </span>y<span class="parenLevel1">)</span> </div><div class="blockLevel2"> <span class="keyword">Next </span>x </div><div class="blockLevel1"> <span class="keyword">Next </span>y </div><div class="blockLevel0"><span class="keyword">End Sub Private Sub </span>PaintModifiedImage<span class="parenLevel1">(</span><span class="keyword">ByVal </span>hdcOffscreen <span class="keyword">As Long</span><span class="keyword">, ByRef </span>OriginalDimensions <span class="keyword">As </span>Rect<span class="parenLevel1">)</span></div><div class="blockLevel1"> <span class="comment">' Calculate the dimensions of the resulting image.</span> <span class="keyword">Dim </span>NewDimensions <span class="keyword">As </span>Rect <span class="keyword">Dim </span>OriginalCoordinates <span class="keyword">As </span>Coordinates2 <span class="keyword">Dim </span>DummyColor <span class="keyword">As </span>RgbQuad NewDimensions <span class="keyword">= </span>OriginalDimensions m_Deformation<span class="keyword">.</span>ApplyToDimensions NewDimensions <span class="comment">' Paint the modified image, one pixel at a time.</span> <span class="comment">' Now that we know the dimensions of the modified image, we can process each pixel in the modified image.</span> <span class="comment">' For each pixel, we call m_Deformation.UnApply to determine the coordinates of the pixel in the original image</span> <span class="comment">' which corresponds to the current pixel in the new image.</span> <span class="keyword">Dim </span>x <span class="keyword">As Long Dim </span>y <span class="keyword">As Long For </span>y <span class="keyword">= </span><span class="magic_number">0</span> <span class="keyword">To </span>NewDimensions<span class="keyword">.</span>Bottom <span class="keyword">+ </span><span class="magic_number">1</span></div><div class="blockLevel2"> <span class="keyword">For </span>x <span class="keyword">= </span><span class="magic_number">0</span> <span class="keyword">To </span>NewDimensions<span class="keyword">.</span>Right <span class="keyword">+ </span><span class="magic_number">1</span></div><div class="blockLevel3"> OriginalCoordinates <span class="keyword">= </span>MakeCoordinates2<span class="parenLevel1">(</span>x<span class="keyword">, </span>y<span class="parenLevel1">)</span> <span class="keyword">If </span>m_Deformation<span class="keyword">.</span>UnApply<span class="parenLevel1">(</span>OriginalCoordinates<span class="keyword">, </span>DummyColor<span class="keyword">, </span>OriginalDimensions<span class="parenLevel1">)</span> <span class="keyword">Then</span></div><div class="blockLevel4"> <span class="keyword">If </span>RectBoundsPoint<span class="parenLevel1">(</span>OriginalCoordinates<span class="keyword">, </span>OriginalDimensions<span class="parenLevel1">)</span> <span class="keyword">Then</span></div><div class="blockLevel5"> SetPixel hdc<span class="keyword">, </span>OriginalDimensions<span class="keyword">.</span>Right <span class="keyword">+ </span>x<span class="keyword">, </span>y<span class="keyword">, </span>GetPixel<span class="parenLevel1">(</span>hdcOffscreen<span class="keyword">, </span>OriginalCoordinates<span class="keyword">.</span>x<span class="keyword">, </span>OriginalCoordinates<span class="keyword">.</span>y<span class="parenLevel1">)</span> </div><div class="blockLevel4"> <span class="keyword">End If </span></div><div class="blockLevel3"> <span class="keyword">End If </span></div><div class="blockLevel2"> <span class="keyword">Next </span>x </div><div class="blockLevel1"> <span class="keyword">Next </span>y </div><div class="blockLevel0"><span class="keyword">End Sub </div></pre></code></div></div> </body>