VB23 중복 실행 방지 및 백그라운드 실행 없이 종료시키는 방법 #VB6.0중복실행을 막으려고 할때프로그램을 하나하나 정상적으로 종료시키지 않고 메인 exe만 강제 종료시키면exe를 통해 실행중이던 form은 백그라운드에서 실행되고 있을 수 있다.이때 form도 완전 종료시키는 방법 1. 선언 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,.. 2025. 3. 17. 파일정보 가져오기 .NET에서 파일목록 및 파일명 가져오기Imports Microsoft.VisualBasic.FileIODim Fs, F, Fc, F1, FName, FolderDim Path as String = "C:\Data\"Fs = CreateObject("Scripting.FileSystemObject") '파일을 가져올때 사용할 객체F = Fs.Getfoler(Path) 'Data라는 폴더의 정보를 가져옴Fc = F.subfolders 'Data폴더 하위 폴더의 개수를 가져옴For Each F1 In Fc FName = F1.Name '하위폴더의 이름을 가져옴Next'First라는 폴더를 삭제Folder = Fs.Getfolder(Path + "\" + "First")Folder.De.. 2025. 2. 3. [VB6.0] 구조체(Type) 선언 여러개의 DB를 사용하고 한 테이블에 열이 많을 경우 각각이 의미하는 정보와 열의 이름이 다르면 매번 열들을 변수로 선언하여 사용하기 힘듭니다. 그때 구조체를 만들어 구조체를 적고 뒤에 .(점)만 찍으로 구조체 멤버들을 보여주어 쉽게 불러 올 수 있습니다. 구조체(Type) 선언 Type ABCDEFG Id As String Pwd As String Email As String Number As Integer End Type Public abcdefg() AS ABCDEFG 구조체(Type) 사용 Dim A as abcdefg A.Id = "" A.Pwd = "" 2022. 6. 2. [VB6.0] Spread에 Serial, DB연결 스프레드와 DB연결 참고 https://d-footprint.tistory.com/79?category=1023510 [VB 6.0] 스프레드와 DB 연결하기 Spread 생성 1. 스프레드 도구 추가 도구 상자 > 오른쪽 마우스 > 구성요소 > FarPoint Spread 6.0 확인 2. Spread 생성 후 > Spread 우클릭 > Spread Designer 클릭 왼쪽 - 열 제목 설정 오른쪽 - 행,열 최대.. d-footprint.tistory.com Serial포트를 통해 Spread에 데이터 뿌려주기 참고 https://d-footprint.tistory.com/110?category=1023510 [VB6.0] Serial포트를 통해 Spread에 데이터 뿌려주기 1. Serial Po.. 2022. 5. 31. [VB6.0] VB6.0의 사소한 차이점 Dim a AS String > Dim a$ String b = "" > Dim b AS String null > nothing c.length > len(c), UBound(c) for(i=0; i for i = 0 to len(a) 2022. 5. 24. [VB6.0] Serial포트를 통해 Spread에 데이터 뿌려주기 1. Serial Port 연결을 위해 Virtual Serial Ports Emulator를 통해 COM1 COM2간 Pair를 해줍니다 2. Serial Port연결을 해준 후 데이터를 넘겨줄 COMM Virtual Machine을 켜준 후 Port Open 연결을 해줍니다 Module 시리얼 포트 연결을 위해 모듈 작성(시리얼포트 연결할때마다 동일하게 작성) Option Explicit Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As St.. 2022. 5. 24. [VB6.0] 아스키코드(ASCII) 변환 ' ASCII 변환 Private Sub Command1_Click() Dim a As String Dim c As Variant Text2.Text = "" ' 문자를 아스키코드로 변환 : Asc() a = Text1.Text For i = 1 To Len(a) If i = 1 Then Text2.Text = Asc(Mid(a, i, 1)) Else Text2.Text = Text2.Text & "|" & Asc(Mid(a, i, 1)) End If Next End Sub ' 문자로 변환 Private Sub Command2_Click() Dim a As String Dim c As Variant Dim i As Integer Text2.Text = "" ' 아스키코드를 문자로 변환 : Chr() ' .. 2022. 5. 24. [VB6.0] Socket Server(소켓 서버) ( * 혼자 서버 클라이언트 연습하다 서버 연결할때 안나던 디버그가 날 경우 LSM 소켓 서버가 꺼져있는지 확인!) 서버를 켜준 후 클라이언트와 연결 '' Ip, Port창을 placehorder와 같이 커서가 올라가면 Text창 안의 문구를 지워줌 Dim msText As String Dim nsText As String '' 닫기 버튼 Private Sub ExitBtn_Click() Me.Hide End Sub Private Sub Form_Load() msText = IpTxt.Text nsText = PortTxt.Text End Sub '' 텍스트박스에 포커스가 가면 빈칸으로 변경 Private Sub IpTxt_GotFocus() IpTxt.Text = "" End Sub Private Su.. 2022. 5. 18. [VB6.0] Socket Client(소켓 클라이언트) * 구성요소에서 Microsoft Winsock Control 6.0(SP6)를 추가해줍니다 종료 밑 컴퓨터 모양이 Winsock Control * 구성요소 추가하는데 Type Library위치가 잘못되면 오류가 뜰 수 있다 ' Ip, Port창을 placehorder와 같이 커서가 올라가면 Text창 안의 문구를 지워줌 Dim msText As String Dim nsText As String ' 닫기 버튼 Private Sub ExitBtn_Click() Me.Hide End Sub Private Sub Form_Load() msText = IpTxt.Text nsText = PortTxt.Text End Sub ' 텍스트박스에 포커스가 가면 빈칸으로 변경 Private Sub IpTxt_GotFoc.. 2022. 5. 18. 이전 1 2 3 다음
