수다닷컴

제가 창이름을 바꾸는프로그램을 비주얼베이직으로만들려고합니다.

제가 제작한프로그램에 필수클릭 이라는컨맨드를눌르면 바껴야하죠.

근대지금 제가 가지고잇는 소스는...

텍스트1 에다가 원레 창이름쓰고.
텍스트2 에다가 바꾸고싶은 창이름써서 바꾸는형식입니다.

근대저는 그냥 필수클릭만 눌르면 바뀌게하고싶은데. ㅜㅜ 알려주세요.

일단제가 가지고잇는 소스를 알려드ㅜ리겟습니다.

------------------------------------------------------------------

바꾸기 소스

Private Sub Command1_Click()
If Trim$(Text1.Text) = Or Trim$(Text2.Text) = Then: MsgBox 1: Exit Sub
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Text1.Text)
If hWnd = 0& Then Exit Sub
SetWindowText hWnd, Text2.Text
Text1.Text = Text2.Text
Text2.SetFocus
End Sub

텍스트 1.2 소스

Private Sub Form_Load()
Text1 = : Text2 =
End Sub
그다음 맨위에잇는소스

Option Explicit
Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib user32 Alias SetWindowTextA (ByVal hWnd As Long, ByVal lpString As String) As Long

이렇게됩니다 ㅜㅜ

그냥 필수클릭만 눌르면 창이름바뀌는방법좀알려주세요 ㅜㅜ

엄청자세하게알려주세요.

제가 하는방법은 대충 이런식입니다
이런식인데 ㅜㅜ

그냥필수클릭만 눌르면 바뀌는방법좀 ㅜㅜ

신청하기