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

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 14 行

这 样 做 ： 
    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>