본문 바로가기
반응형

개발언어/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.
원하는 날짜를 만들고 이동하기 원하는 날짜를 더하거나 만드는 방법이다. [CODE] DateSerial(GetNum(Mid(msk_condate_1.Text, 1, 4)), GetNum(Mid(msk_condate_1.Text, 5, 2)), GetNum(Mid(msk_condate_1.Text, 7, 2)) + k) [/CODE] 함수중에 DateAdd라는 함수를 이용해도 좋다~ 2008. 2. 22.
VSpread Head 스프레더 헤더 생성하기 SS3.MaxCols = SS3.MaxCols + 5 SS3.row = SpreadHeader SS3.row = SpreadHeader + 1 SS3.Col = SS3.MaxCols: SS3.Text = "글자": SS3.ColWidth(SS3.Col) = 4 Call SS3.AddCellSpan(SS3.MaxCols - 4, SpreadHeader, 5, 1) 이런식으로 작성한다 ^.^ SS3.BlockMode = True / False 로 지정된 블럭을 수정하여도 된다! 2008. 1. 25.
코드로 vaSpread 6.0 Currency형으로 설정하기 직접해보았다 ㅠ 코드로 vaSpread 6.0 Currency형으로 설정하기 ' 설정하기 (Currency형으로 지정) SS3.BlockMode = True SS3.Row = 1: SS3.Row2 = SS3.MaxRows SS3.Col = 2: SS3.col2 = SS3.MaxCols - 1 SS3.CellType = CellTypeCurrency SS3.TypeCurrencyShowSymbol = False SS3.TypeCurrencyShowSep = True SS3.TypeCurrencyDecPlaces = 0 SS3.TypeHAlign = TypeHAlignRight SS3.BlockMode = False 조금 참고한것~ http://www.clubfarpoint.com/Forums/forums/.. 2008. 1. 25.
VB 개발을 편리하게 해주는 Add-In 프로그램들 1. FullScreen -> VB에 도구상자, 프로젝트 탐색기등 창이 많이 뜨는데 이걸 Ctrl + Enter 을 누르면 모든 창이닫힌다. 다시 Ctrl + Enter 누르면 닫힌 창이 열린다. http://www.devpia.com/forum/BoardView.aspx?no=20475&ref=20475&page=3&forumname=top_pds&stype=VBF 2. CodeHelp -> 현재 열려진 폼, 코드를 탭형식으로 보여준다. http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=60321&lngWId=1 3. MZTools 3.0 -> 개발할때 이런 저런 편리한 기능들이 포함되어 있다. ex) 탭인덱스 정렬, 에러처리 구문.. 2007. 12. 29.
현재 시스템 시간을 구하는 함수 mssql 에서 gettime()라는 함수가 있다 select getdate() as date 출력결과 : 2007-12-27 16:45:38.470 이함수를 이용하여 vb에서 mssql 함수를 실행하여 현재 시간을 구할수 있다 [CODE] select substring(replace(replace(replace(convert(varchar(17),getdate(),20),'-',''),':',''),' ',''),1,12) as sysdate [/CODE] 출력결과: 200712271646 날짜 시 분 초 로 숫자만 나오게 하였다 ~ VB에서 함수화를 하면 [CODE] Public Function GetSysDate(Optional returnlength As Integer = 8) As String .. 2007. 12. 27.
StatusBar 컨트롤 추가하기 StatusBar 컨트롤은 일반적으로 상위 폼의 아래 부분에 창을 제공하는데, 이 창을 통해 응용 프로그램은 다양한 종류의 상태 데이터를 표시할 수 있습니다. StatusBar는 하나의 Panels 컬렉션에 포함된 최대 16개의 Panel 개체로 나눌 수 있습니다. 구문 StatusBar 참고 StatusBar 컨트롤은 Panel 개체로 구성되는데, 각각은 텍스트 또는 그림을 포함할 수 있습니다. 각 패널의 모양을 조절하기 위한 속성에는 (텍스트와 그림의)Width, Alignment, Bevel이 포함됩니다. 추가로 Style 속성의 7개 값 중 하나를 사용하여 자동으로 날짜, 시간, 키보드 상태 등의 공통 데이터를 표시할 수 있습니다. 디자인 모드 시 StatusBar 컨트롤 속성 페이지의 패널 탭에.. 2007. 12. 27.
TreeView 에 대한 msdn의 설명 Treeview 컨트롤의 Nodes 컬렉션에 Node 개체를 추가합니다. 명명된 인수는 지원하지 않습니다. 구문 object.Add(relative, relationship, key, text, image, selectedimage) Add 메서드 구문은 다음과 같은 구성 요소로 되어 있습니다. 구성 요소 설명 object 필수. 적용 대상 목록의 개체로 평가되는 개체 식. relative 선택. 기존 Node 개체의 인덱스 번호나 키. 이 기존의 노드와 새로운 노드의 관계는 다음 인수인 relationship에 나타납니다. Relationship 선택. 설정에 설명된 것과 같이 Node 개체의 상대적 위치를 지정합니다. Key 선택. Item 메서드로 Node를 읽어 들일 때에 사용하는 고유 문자열. .. 2007. 11. 21.
TreeView구현방법 TreeView는 계층적 구조를 갖는 데이터를 보기 좋게 표현하는데 편리하다. Button1, TextBox1을 폼에 만들어 넣는다. TreeView 하나를 추가하고 그 이름을 [Tree]라고 하자. [예제1] Tree에 데이터 싣기. 폼이 로드될 때 데이터도 같이 싣는다. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Tree.PathSeparator = "-" Tree.ShowPlusMinus = True Tree.Nodes.Clear() Tree.Nodes.Add("대한민국") '방법1 Tree.Nodes(0).Nodes.Add("경기도") Tree.Nodes(0.. 2007. 11. 21.
mdb 파일 크리스탈리포트(CrystalReport)로 인쇄하기 MDB파일을 연결하여 CrystalReport (크리스탈리포트)로 인쇄하는 방법 [CODE] Dim rs_tmp As Recordset Dim e As Currency prt.Execute "Delete from tprint" Set rs_tmp = prt.OpenRecordset("tprint", dbOpenDynaset) For e = 1 To ss1.MaxRows ss1.Row = e rs_tmp.AddNew ss1.Col = 1: rs_tmp!C000 = ss1.Text ' 해당 Spread를 지정하여 인쇄 ss1.Col = 2: rs_tmp!C001 = ss1.Text ss1.Col = 3: rs_tmp!C002 = ss1.Text ss1.Col = 4: rs_tmp!C003 = ss1.Text.. 2007. 11. 21.
[연습] 디비에 연결하여 Spread 컴퍼넌트에 출력하기 [CODE] Private Sub TestSQL() ' 디비연결 테스트 Dim i As Integer Dim SQL As String Dim rs_tmp As New ADODB.Recordset SQL = "select * from t_imp_tt where gubun ='01'" Set rs_tmp = Nothing: Call SetRST(rs_tmp, SQL) Call SpreadClear(ss1) If rs_tmp.EOF Then MsgBox "검색된 데이터가 없습니다", , "" rs_tmp.Close: Set rs_tmp = Nothing Exit Sub Else rs_tmp.MoveLast rs_tmp.MoveFirst ss1.MaxRows = rs_tmp.RecordCount End If F.. 2007. 11. 19.
간단한 함수 설명 ◈ 함수명 : Now ◈ 함수명 : NPer 형식 : Now 형식 : NPer(rate, pmt, pb[,fv, type]) 설명 : 사용자 컴퓨터 시스템 날짜와 시간을 반환합니다. 설명 : 정기고정 지불액과 고정이율을 기준으로 연금의 기간 수를 반환합니다. 예제 : Td=Now ☞ 현재 날짜와 시간을 반환합니다. 예제 : rate(일정기간 이율을 지정), pmt(각 기간에 지불할 지불액), pv(장래의 지불액), fv(마지막으로 지불한후 에 원하는 장래의 값), type(지불만기일) ◈ 함수명 : NPV ◈ 함수명 : Oct 형식 : NPV(rate, values()) 형식 : Oct(number) 설명 : 정기적인 자금 흐름과 할인율을 기준으로 현재의 순 투자 가치를 반환합니다. 설명 : 숫자의 8진.. 2007. 11. 15.
비주얼 베이직 단축키 1. F1 : 선택된 항목에 대한 비주얼 베이직 도움말 보기 2. F2 : 개체 찾아보기 3. F3 : 다음 찾기 4. F5 : 컴파일하기 5. Crtl+F5 : 전체 컴파일한 후 다시 시작하기 6. Crtl+F : 찾아보기 (Find) 7. Crtl+H : 바꾸기 8. Crtl+I : 변수등의 요약 정보 9. Crtl+J : 속성과 메소드 목록보기 10. Crtl+Z : 실행 취소 11. Crtl+DEL : 한 단어만 지우기 12. Crtl+오른쪽 화살표 : 한 단어만큼 오른쪽으로 이동 13. Crtl+왼쪽 화살표 : 한 단어만큼 왼쪽으로 이동 14. Crtl+Home : 해당 모듈의 처음으로 이동 15. Crtl+End : 해당 모듈의 끝으로 이동 16. Crtl+아래쪽 화살표 : 다음 프로시저의 첫.. 2007. 11. 15.
텍스트 읽는 함수 텍스트를 읽어보자꾸나 [CODE] Function ReadIniFile(ByVal strIniFile As String, ByVal strSECTION As String, ByVal strKey As String) As String Dim strbuffer As String Dim intpos As Integer Const gstrNull = " " gIntMAX_SIZE = 100 strbuffer = Space(gIntMAX_SIZE) If GetPrivateProfileString(strSECTION, strKey, gstrNull, strbuffer, gIntMAX_SIZE, strIniFile) > 0 Then ReadIniFile = RTrim(StripTerminator(strbuffer)).. 2007. 11. 15.
반응형