텍스트 기록
돌심보
2025.01.16
Private Declare Function GetWindowText Lib user32 Alias GetWindowTextA (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib user32 () As Long
Private Function GetActiveWindowCaption()
Dim hWn, Pos As Long
Dim Title As String
Title = String$(255, 0)
hWn = GetForegroundWindow
GetWindowText hWn, Title, 255
Pos = InStr(Title, Chr$(0))
If Pos 0 Then
Title = Left$(Title, Pos - 1)
End If
GetActiveWindowCaption = [ & Title & ]
End Function
Private Sub Timer1_Timer()
Text1 = GetActiveWindowCaption
frmMain.Width = Text1.Width + 310
End Sub
어느분 소스로 수정좀해봤는데
이상테에서 기록되게하려면 어떻게해수정해야하나요?..
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2694041 | 모듈은 무었인가요? | 하람 | 2025-05-07 |
| 2694013 | 비쥬얼베이직 책 추천좀요^^... | 초코맛캔디 | 2025-05-07 |
| 2693985 | 리소스문제데요...ㅋㅋ (1) | 아리에스 | 2025-05-07 |
| 2693929 | 했는데 ㅠㅠ | 볼수록중독 | 2025-05-06 |
| 2693870 | 수정좀요 ^^;; (2) | 차오름 | 2025-05-06 |
| 2693812 | ※고구마는 보아라 (6) | 솔길 | 2025-05-05 |
| 2693789 | 마우스가있는곳의 좌표 보기 | 하예진 | 2025-05-05 |
| 2693759 | 실시간으로 서버 열렸는지 닫혔는지 확인하는법좀 | 참이 | 2025-05-05 |
| 2693728 | 로그인 유지 관련 제발 성실답변좀요 | 에녹 | 2025-05-04 |
| 2693705 | 아 재질문합니다 (5) | 모아 | 2025-05-04 |
| 2693677 | Dim a (1 to 11) AS Long에서 11을 K로 놓는 방법 질문 | 진주 | 2025-05-04 |
| 2693648 | 55런타임오류..... | 가론 | 2025-05-04 |
| 2693620 | 수다님 꺼처럼 하는방법좀요 | PinkPearl | 2025-05-03 |
| 2693564 | ir creator 에대해서 질문드립니당.. | 글고운 | 2025-05-03 |
| 2693540 | 배열 간 이동시키기 | 악당 | 2025-05-03 |
| 2693518 | 비베 WebBrowser1 오류 도움구합니다 | 수예 | 2025-05-02 |
| 2693491 | 블로그스크랩기 , 사이트 글가져오기 질문합니다. | Addicted | 2025-05-02 |
| 2693437 | 폼 에대해서요 ㅜ_ㅜ | 돌삥 | 2025-05-02 |
| 2693412 | 컴파일 오류떠여 ㅠㅠ | 꺆잉 | 2025-05-01 |
| 2693388 | 프로그램으로 프로그램 만들기질문 | 하루키 | 2025-05-01 |