Win32::GUI을 사용하여 Perl 프로그램에 GUI를 추가하는 방법을 배우고 있습니다. 다른 것들, 말하자면, 배경색, 최소화 버튼의 모양과 느낌에 대해Perl에서 Win32 제목 표시 줄의 모양을 완전히 변경하려면 어떻게합니까?
$myicon = new Win32::GUI::Icon('myicon.ico');
$myclass=new Win32::GUI::Class(
-name=>'myclass',
-icon=>$myicon,
);
$mydialogbox = new Win32::GUI::DialogBox(
-name => 'mydialogbox',
-class => $myclass,
);
하지만 : 지금은 같은 것을 사용하여 Win32에서 제목 표시 줄의 아이콘을 변경할 수 있습니까?
나는 그 주제를 봤고 몇 가지 관련성있는 기사를 발견했다. 그들은 비 클라이언트 영역 paiting 등 등 물건에 대해 이야기하지만 코드 스 니펫은 모두 C로 작성된 것 같습니다, 나는 그것을 잘 알고 있지 않습니다.
여기 누군가 비슷한 상황을 처리하는 Perl로 작성된 코드 스 니펫을 친절하게 공유 할 수 있는지 궁금합니다. 아니면 작업을 쉽게 할 수있는 Perl 모듈이 있습니까? 대한 의견
감사합니다 :)
**** 갱신 1 ****
내가 먼저 제목 표시 줄을 사라지게하고 원래의 제목 표시 줄을이었다 라벨을 추가 한 다음 몇 가지를 추가 할 수 다른 버튼을 최소화하고 개체를 닫으려면?
이제 문제는 : 마우스가 레이블에있을 때 Window 객체를 어떻게 움직일 수 있습니까?
**** 내가 Perl로 수행 할 작업을 어떻게해야하는 몇 가지 VB 코드 조각을 발견했습니다
UPDATE2의 ****. 누군가 Win32에서 GUI를 재 작성하도록 친절하게 도와 줄 수 있습니까? :: GUI? 다음 VB 코드 here 내지 :
Option Explicit
' API functions
Private Declare Function ReleaseCapture Lib "user32"() As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
' Constants for above API calls
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Sub Form_Load()
Dim retVal As Long
retVal = SetWindowText(Me.hwnd, Label1)
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
어쨌든. –
그래서 녀석이 어떻게 제목 표시 줄을 수정할 수 있는지 묻습니다. 그러면 대답은 처음부터 수정해서는 안된다는 것입니다. 그에게 휴식을 ... Lol –