Jump To VB.NET

이번 연휴, 내 Laptop OS 를 다시 설치했다.

기존 영문 Vista 가 많이 느려진 것 같기도하고 꺼지는 시간도 엄청 오래 걸리고...

해서 큰맘먹고 재 설치를 감행했다.

이번에는 한글 Vista 를 깔았다.

영문을 설치하라는 고수님의 강추에도 불구하고 한글 Vista를 경험해 보지 못한 아쉬움을 달래려 조용히 깔기로 했던 것이다.

훔... 개발도구까지 모두 세팅을 했다.

순조로왔다. OS 를 재 설치하는 시간은 기분이 좋다.

마치 더럽혀진 방을 청소하는 기분 그래서 깨끗해 진다는 느낌을 받을 수 있어서 좋다.

그리고 설치하는 동안은 조용히 책도 볼 수 있고... 얼마나 좋은가... ^^


깨끗해진 Computer 를 사용할 수 있다는 생각에 기분이 좋았다.
Infragistics 라는 3rd Party Grid외 Components 를 설치하기 전까지는 말이다.

지금 진행중인 프로젝트에서 사용하는 Grid Component 로 CAB 도 함께 사용한다.

비스타에 설치하는 것이 매우 복잡해서 처음엔 무척이나 애를 먹었다.


일단 IIS 를 요구를 하고 
IIS 가 설치되어있다고 해도 Registry 를 손봐야하는 수고를 해주어야 한다.
그리고 Vista 의 UAC 를 정지시켜야 하는 무지막지한 작업을 해주어야한다.

그럼 차례차례 진행하는 방법을 적어보도록 하겠다.

그냥 무작정 설치파일을 실행시키면 

실행되는 척하다가

Could not access network location %SystemDrive%\inetpub\wwwroot\ 라는 영문 모를 영문 에러를 확! 버르장 머리없이 뱉어버린다.
Administrator 계정으로 실행하지 않아서 그런가 싶어 실행을 하더라고 똑같은 에러를 내며

Msi 파일을 실행시키면 엇!!! 설치가 진행된다.

그르나...

visualStudio를 실행시키고 컴퍼넌트를 올리게 되면 

에러창이 확뜨면서 
그 에러 메시지를 잘 읽어 보면 Trial Period Expired 라는 문구를 볼수 있다.

아니 Serial 까지 맞게 넣었는데 뭐가 Trial 이라는 건지... 난감할 것이다.

아무리 재 설치를 해봐도 현상은 계속 나타난다.

Uninstall 을 한다고 해도 설치된 모든 사항들이 깨끗하게 지워지지 않는다.

Registry 에 남아 있을 뿐만 아니라 GAC 에도 올라가서 지워지지 않는다. 

난감하다. 많이 난감하다. 

그러다 한 페이지를 찾아 냈다.

이 페이지에 나타난 사항을 정리했다.

먼저 Run(실행창)을 열어 "msconfig" 를 입력하고 실행한다.("는 빼고)

그럼 아래와 같은 창이 실행되고 도구 탭을 클릭하여 
리스트에서 UAC 사용안함을 선택하고 시작버튼을 클릭한다.

그럼 시꺼먼 Command 창이 뜨고 완료되었다는 메시지를 보여준다.

그리고 Laptop을 재부팅시킨다.



먼저 IIS 를 설치하고 실행시킨다.(먼저 설치되어있다면 좋겠지만... ^^)

설치되어있다면 

실행창을 열어서 "regedit" 를 입력하여 Registry Editor 를 실행시킨다.

그리고 "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\InetStp\PathWWWRoot"
경로를 찾는다.

찾았으면 %SystemDrive%\inetpub\wwwroot" 값을  "C:\inetpub\wwwroot". 으로 수정한다.

그리고 Infragistics 를 설치한다.

그럼 Perid 에러는 사라질 것이다.

설치가 모두 끝났으면 다시 msconfig" 를 실행시켜서 UAC 를 사용하도록 돌려 놓는다.

그리고 Rebooting.

^^

이 방법을 알기 전에 설치와 삭제를 몇번이나 했는지 모른다. 
Registry 를 하나하나 찾아가며 삭제했고GAC 내에 있는 Infragistics Component 들을 일일이 지워주고
Uninstall. 시에 삭제되지 않은 파일들도 모두 지워주고....하이간 별짓을 다했다. ㅡㅡ'

이글을 보시는 분들은 그런 에러를 만나지 마시길 빈다.


행복한 고수되셔요...




woojja ))*
\\\\\\\\\\\\\\\\\\\\\\\\\\

Blend 2 trial September Preview version 이 Release 됐습니다.

점점더 막강해지는 기능으로 Flash 를 압박해 가는 군요.

Flash 1.0 을 사용하던 때가 생각나네요.

그때부터 잘 했으면 엄청난 고수가 되어있었을 텐데 말이죠..

전에도 이런 생각을 하며 씁쓸해 했었는데...

Blend 를 보고 있자니 예전의 그때가...

뭐든 열심히 해야할텐데 말이죠...


아래 링크를 따라가시면 블랜드 따운 받으실수 있습니다. ^^

Microsoft Expression Blend 2 Free Trial

September Preview

We are pleased to present our next preview of Microsoft^® Expression Blend^™ 2. The Expression Blend 2 September Preview lets you create Microsoft^® Silverlight^™-based applications. Additionally, you can export content from Microsoft^® Expression^® Design in a format that you can use in Silverlight-based applications created in the Expression Blend 2 September Preview.

You may also find Microsoft^® Expression^® Encoder to be helpful when you are working with video, Silverlight, and the Expression Blend 2 September Preview. Learn more about Silverlight and its community today.

What’s new in this preview?

Visual Studio 2008 support 

Making Controls from Existing Objects

Split View and XAML Editor Improvements

Storyboard Picker

Storyboard and Keyframe Properties

Vertex Animation

Breadcrumb Bar

Font Embedding

Build Options 

Object Manipulation



부디 행복한 고수되십시요...


woojja ))*
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

예전 본 책을 들추다가 흔하게 만들어 보는 폼을 만드는 소스를 보았다.
그리고 
한번 쳐본다.

2D 에 관한 NameSpace 를 추가해주고 

Imports System.Drawing.Drawing2D

먼저 폼을 Load 하면서 폼의 사각형 구역을 구하고 그 사각형 내에 동그란 Ellipse 를 추가한다.
그리고 그려질 구역을 다시 설정한다.

Sub SetEllipseRegion()         Dim rect As Rectangle = Me.ClientRectangle         Using path As GraphicsPath = New GraphicsPath             path.AddEllipse(rect)             Me.Region = New Region(path)         End Using     End Sub

그리고 Form Load Event 에서 위 Method를 실행시킨다.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         SetEllipseRegion()     End Sub

F5 를 눌러 실행을 시킨다.

   위와 같이 Title 과 폼의 테두리가 그대로 보이는 동그란 폼이 그려졌으며 타이틀바를 클릭하여 드래깅을 하면 폼을 이동시킬수도있다.

이것은 폼 전체를 ClientRectangle로 구역을 설정했기 때문이며

이를 제거하려면
폼의 설정에서 


 
FromBorderStyle 을 None 으로 선택하고 실행시켜보면

이런 식으로 깨끗한 Ellipse Form 이 완성된다.

이 폼을 마우스를 이용하여 움직이고자 하는데..
모두들 알고 있다 시피

Mouse Down, Move, Up Event 를 이용하여 폼을 이동시킬것이다.

그 내용은 아래와 같다.

Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown         If e.Button <> Windows.Forms.MouseButtons.Left Then             Return         End If         DownPoint = New Point(e.X, e.Y)     End Sub     Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)         If DownPoint = Point.Empty Then Return         Dim location As Point = New Point(Me.Left + e.X - DownPoint.X, Me.Top + e.Y - DownPoint.Y)         Me.Location = location     End Sub     Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)         If e.Button <> Windows.Forms.MouseButtons.Left Then Return         DownPoint = Point.Empty     End Sub

위 코드를 입력하고

F5번 을 눌러 실행을 시키고 마우스로 클릭하여 폼을 움직여 보자...

^^

짝짝짝...



간단한 따라하기였다.

나 자신도 따라하기를 하면서 그 때 정리하지 못했던 것들을 정리 할 수 있어서 좋았다.
계속해서 짤막짤막한 따라하기 예제를 하나씩 만들어 보겠다.
언제나 처럼 작심삼일이 될지 모르나....

지금 현재는 재미있다. ^^



행복한 고수되셔요...


woojja ))*
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\