如何将exe中的图标显示在按钮上.txt

VB技巧问答10000例 VB技巧问答10000例

这 样 做 ： 
    1、 先 加 入 一 个 PictureBox， 将 Visible属 性 设 置 为 False； 
    2、 设 置 按 钮 的 Style为 1； 
    3、 输 入 以 下 代 码 。 
    Private Sub form_load() 
     Dim hIcon As Long 
     
     hIcon = ExtractIcon(App.hInstance, "e:\vb6\vb6.exe", 0) 
     Picture1.AutoRedraw = True 
     DrawIcon Picture1.hDC, 0, 0, hIcon 
     Command1.Picture = Picture1.Image ' 这 是 技 巧 
    End Sub 
<END>