Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by i786
Wed, 25 Mar 1998 00:00
vb��gdi��ʾwmf������
Author: i786
Date: Wed, 25 Mar 1998 00:00
Date: Wed, 25 Mar 1998 00:00
26 lines
1369 bytes
1369 bytes
vb��wmf�ļ�����ʾ����
form1����picture1, command1��command2, ��Ԥ��picture1��
��gdi������ʾc:\yinyang.wmf, ��������:
Private Sub Command1_Click()
Dim hMF, MyReturn As Long
hMF = GetMetaFile("c:\yinyang.wmf")
MyReturn = PlayMetaFile(Form1.Picture, hMF)
End Sub
Private Sub Command2_Click()
Dim MyReturn As Long
MyRreturn = DeleteMetaFile(hMF)
End
End Sub
�����õ�����������:
Declare Function GetMetaFile Lib "gdi32" Alias "GetMetaFileA" (ByVal
lpFileName As String) As Long
Declare Function PlayMetaFile Lib "gdi32" (ByVal hdc As Long, ByVal hMF
As Long) As Long
Declare Function DeleteMetaFile Lib "gdi32" (ByVal hMF As Long) As Long
����������, ������command1ʱ, û��Ԥ�ڵ�ͼ����ʾ, �������?
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads