공유민 블로그

안녕하세요. 공유민입니다.이번 포스팅은 VB 6.0에서 로컬에 있는 파일의 존재 여부를 검사하는 방법을 정리하겠습니다. Checking for the existence of a file ① Dir 함수 활용하기 첫 번째로 사용했던 방법은 Dir() 함수를 활용하는 것 입니다. 12345 If Dir(sFileName) "" Then ' File exist Else ' File not exist End Ifcs위 소스와 같이 파일이 없다면 "" 을 리턴하는 것을 활용해서 사용하는 방법입니다.좀 더 수치화 하려면 12345 If Len(Dir(strFileName)) 0 Then ' File exist Else ' File not exist End IfcsLen을 사용하여 처리할 수도 있습니다. 하지만 저는..

안녕하세요. 공유민입니다.이번 포스팅은 배열을 사용할 때, Nothing 인지 아닌지 확인하는 방법을 정리하려고 합니다. Array Nothing detect VB 6.0에서 배열을 선언만(Dim) 해 놓고 1Public testArray() As Byte ' or DimtestArray() As Bytecs 추후에 아래처럼 재선언을 해야하는데1ReDim testArray(1 To 10) cs 배열을 재선언(ReDim) 하였는지 아닌지에서 루틴이 달라져서 이것을 확인하기 위해123If Not(testArray Is Nothing) Then ' Or testArray() Is Nothing End IfColored by Color Scriptercs위 소스를 사용하면 선언하지 않은 배열을 사용하기 때문에 ..

안녕하세요. 공유민입니다.C와 VB에서 서로 자료형이 맞지 않을 때 맞추는 방법을 정리하려 합니다. C To VB C DataType VB DataType in VB Call function Char* var ByVal var As String var BYTE** var ByRef var As Long VarPtr(var) int* var ByVal var As Long VarPtr(var) int* var ByRef var As Long var BYTE* var ByRef var As Any var(0) C DataType : C 에서 함수 선언 시 사용되는 자료형을 말합니다.VB DataType : VB에서 함수 선언 시 사용되는 자료형을 말합니다.in VB Call function : VB에서 함수..

안녕하세요. 공유민입니다.VB에서 제공하는 WebBrowser에서 우클릭을 막는 방법을 정리하려고 합니다. WebBrowser 우클릭 방지 프로젝트(project) - 참조(reference)를 들어갑니다. 참조(reference)에서 Microsoft HTML Object Library를 추가하고 확인 버튼을 누릅니다. 12Option ExplicitDim WithEvents hDoc As HTMLDocumentcs를 추가하고, 123456789101112131415Private Function hDoc_oncontextmenu() As Boolean hDoc_oncontextmenu = FalseEnd Function Private Sub WebBrowser1_BeforeNavigate2(ByVal ..

안녕하세요. 공유민입니다.기존 svg 파일은 웹 브라우저에서 열립니다.SVG 파일을 VB에서 사용해야 했는데, 검색해본 결과 뷰어프로그램은 없고 VB내에서 제공하는 WebBrowser로 통해 해결했습니다. 기타 다른 웹 확장자들도 사용 가능합니다.그 방법을 정리하려고 합니다. SVG 뷰어 / WebBrowser 사용하기 프로젝트(project) - 구성 요소(component)를 선택합니다. 구성 요소에서 Microsoft Internet Controls 를 선택하고 적용, 확인합니다. 그러면 도구 모음에 WebBrowser 아이콘이 생겼을 겁니다.WebBrowser를 Form에 만들어 줍니다.생성된 WebBrowser의 이름은 WebBrowser1입니다. 1WebBrowser1.navigate Inte..

안녕하세요. 공유민입니다.VB(Visual Basic) 6.0 에서 tif 파일을 보여주고 싶을 때 사용했던 방법을 정리하려고 합니다. Tif, Tiff 파일 사용하기 프로젝트(project) - 참조(reference)를 선택합니다. Microsoft Windows Image Acquisition Library v2.0 을 체크하고 확인 버튼을 누릅니다. 12Option ExplicitPrivate ImgTIFF As WIA.ImageFilecs위와 같이 WIA(Windows Image Acquisition) 변수를 선언합니다. Form에 Image를 선택해서 tif가 사용될 이미지를 만듭니다. 저는 이름을 ImageFrame으로 설정했습니다. 1234Set ImgTIFF = New WIA.ImageF..