Visual Basic 6.07 체크박스 동적생성 함수 Private Sub LoadGradeButton() Dim rs As ADODB.Recordset Dim i As Integer On Error GoTo ERRHANDLER If ConnectDB = False Then Exit Sub Set rs = GetBaseCode(CD_GRADE) '합/불 체크버튼 동적생성 If rs.EOF Then chkGrade(1).Visible = False Else chkGrade(1).Caption = rs!Grade chkGrade(1).Tag = rs!GradeID chkGrade(1).Value = vbChecked '첫번재껀 항상 선택 m_dGradeCnt = rs.RecordCount '버튼 총 갯수 rs.MoveNext i = 2 Do Until rs.E.. 2022. 2. 25. VB6 단축키 설정방법 이름(N)부분에 괄호 옆에 &을 붙이고 단축키를 지정한다. 2021. 12. 22. 스프레드에 rs.EOF로 쿼리 받아와서 뿌리는 코드 Private Sub FillspdMain() Dim rs As ADODB.Recordset Dim sSQL As String Dim i As Long On Error GoTo ERRHANDLER m_bLoading = True If ConnectDB = False Then Exit Sub sSQL = "" sSQL = sSQL & "SELECT SUBSTRING(D.StockDate ,1,4) +'-'+ SUBSTRING(D.StockDate ,5,2) +'-'+ SUBSTRING(D.StockDate ,7,2) AS StockDate Set rs = New ADODB.Recordset rs.Open sSQL, g_adoCon, adOpenForwardOnly, adLockReadOnly spdMain.. 2021. 9. 3. 스프레드에 쿼리 바로 뿌리는 코드 Private Sub FillspdSubIn(sMOrderDate As String) Dim rs As ADODB.Recordset Dim ls_Sql As String Dim sCustom As String On Error GoTo ERRHANDLER Call ClearData m_bLoading = True If ConnectDB = False Then Exit Sub ls_Sql = "" ls_Sql = ls_Sql & "SELECT ''AS chk, C.MaterialName" & vbCr Gf_GetSpdData spdSubIn, ls_Sql, False If DisConnectDB = False Then Exit Sub m_bLoading = False Exit Sub ERRHANDLER: C.. 2021. 9. 3. '5'런타임 오류가 발생하였습니다 프로시저 호출 또는 인수가 잘못되었습니다. 디버그를 해보면 cmdOperate(3)은 저장버튼인데 저장버튼은 활성화 되지 않아서 없는 버튼을 호출하니까 오류가 뜨는 것. 그래서 취소버튼이 자동 클릭되도록 바꿔줌 cmdExit.Doclick 2021. 4. 1. pnlDoor를 좌측으로 이동해야 할때 PnlDoor.Move 옆에 6640이란 숫자가 lett의 좌표이고 맨 밑에서 두번째 m_Door.SetDoor...의 뒤에 있는 숫자들로 너비를 넓혀줄수 있다 2021. 3. 23. 이전 1 2 다음
