Microsoft 공식 패치 링크: http://support.microsoft.com/kb/837910/ko 패치 순서는 다음과 같다. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 1. 여기 업로드 된 파일을 다운받거나 혹은 위의 링크에서 파일을 다운받는다. 2. 다운 받았던 파일 중에서 VB6IDEMouseWheelAddin.dll을 C:\Windows\System32에 복사한다. 3. 시작 -> 실행을 열고 다음을 입력한다. regsvr32 C:\Windows\system32\VB6IDEMouseWheelAddin.dll ..
fpspread.SetActiveCell 1, 1 해당하는 그리드의 1,1 위치로 Focus가 이동한다!!
Format 함수를 이용하면 간단히 해결 가능 1234dim data as stringdata = "1500000"Format(data, "###,0")'1,500,000 이런식으로 출력된다!cs
1234567'FapPoint Spread 틀 고정'엑셀에서 사용하는 틀고정 기능과 동일한 기능 수행with fpSpread1 .RowsFrozen = 3 '가로틀고정 .ColsFrozen = 2 '세로틀고정end with cs 간단하게 해결!
VB6.0은 FOR문 안에 CONTINUE 문을 넣을수가 없어서 조건 해당시 다음 FOR문으로 넘어갈 수가 없다. 때문에 어쩔수없이 GOTO문 이용해서 NEXT로 바로 가도록 설정해줘야 한다. 123456For I = 1 To N If SomeCondition Then GoTo NextIteration NextIteration: Next Ics
1234567891011121314151617181920 'spread 이름 , 쿼리문 , row , col , 콤보박스에 넣을 데이터Private Sub SpreadComboSetting(Sp As Control, Str As String, iRow As Long, iCol As Long, Data As String) Dim Rs2 As New ADODB.RecordsetRs2.Open Str, Cn, adOpenStatic, adLockReadOnly Sp.TypeComboBoxClear iCol, iRow If Not Rs2.EOF Then With fpSpread1 Do While Not Rs2.EOF .Row = iRow '해당하는 col 부분에 콤보박스 추가해준다. + 연산자 이용 .Col =..
1234567891011121314fpSpread1.Row = fpSpread1.ActiveRow '활성화된 row값 받아오기fpSpread1.Col = 1 'Form5 작업단위 바꿔주고 , 코드값 변경Form5.InsaCodeTextBox.Text = fpSpread1.Text InsaCode = fpSpread1.Text fpSpread1.Col = 2Form5.InsaNameTextBox.Text = fpSpread1.Text InsaName = fpSpread1.Text Unload MeColored by Color Scriptercs
1234567891011121314151617181920212223242526 Str = "SELECT * from dbo.workgrmst" Rsc.Open Str, Cn, adOpenStatic, adLockReadOnly If Not Rsc.EOF Then Do Until Rsc.EOF j = j + 1 '해당하는 콤보박스에 값을 추가해 주고 .TypeComboBoxIndex = j .TypeComboBoxString = Rsc!WorkGrCode & ":" & Rsc!WorkGrName '콤보박스에서 해당하는 이름이 같으면 해당 셀로 선택해준다. If Rsc!WorkGrName = Rs!WorkGrName Then '!!!선택!!!!! .TypeComboBoxCurSel = j End If Rsc..
