본문 바로가기
반응형

개발언어/VB17

vaspread 편집시 문자열 출력된 것 안지원지고 편집하기 If SS1.ActiveCol = 4 //4번째 컬럼이면 Then SS1.Row = SS1.ActiveRow : SS1.Col = SS1.ActiveCol SS1.EditModePermanent = True SS1.SelStart = 6 End IF 이렇게 하고.. 스프레드의 4번째 컬럼에 N코드를 입력된 후 폼이 load 된다. 사용자가 편집을 할때 편의상 N코드를 입력하기 싫어하기때문에 이렇게한다. 하지만 더블클릭하면 N코드는 지워진다. N이라는 문자열이 지워지지 않게 하기위해서 위와 같이 설정한다. 2008. 11. 21.
OCX 등록프로그램 About RegisterDLL This is a simple program to register or un-register a DLL or OCX file on your machine. It doesn’t really do anything fancy besides that. I just find it quicker than typing at the command prompt. Originally built in VB6, it was turned into a VB.NET program so I could experiment with the new .NET language. In order for you to run this program, you must have the .NET Framework ins.. 2008. 4. 13.
ToolBar API (그림, 색깔지정) Toolbar 색깔, 이미지 지정 API 코드 Public Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwnewlong As Long) As Long Public Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, ByRef lColorRef As Long) As Long Public Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long.. 2008. 4. 8.
항상 위에 표시되는 폼을 만드는 방법 아주 간단하다. 폼이름과 모듈을 추가해서 코드만 넣으면 가능하다 나의 경우 버튼을 하나 만들고 클릭시 아래 코드를 넣었다. Private Sub SetTopWindow_Click() '// 항상위 설정 Dim lR As Long If SetTopWindow.Caption = "항상위" Then SetTopWindow.Caption = "일반폼" lR = SetTopMostWindow(funcmngX.hwnd, False) Else SetTopWindow.Caption = "항상위" lR = SetTopMostWindow(funcmngX.hwnd, True) End If End Sub 항상위로 설정할 폼이름은 funcmngX 이다. 클릭시 버튼의 Caption이 항상위이면 일반폼으로 글자를 설정하고 Set.. 2008. 3. 21.
반응형