Dim dlg As New OpenFileDialog dlg.Filter= "CAD|*.*" If dlg.ShowDialog = DialogResult.OK Then Dim icon As Icon = System.Drawing.Icon.ExtractAssociatedIcon(dlg.FileName) Dim fileStream As new System.IO.FileStream("d:\test.ico", System.IO.FileMode.Create) icon.Save(fileStream) fileStream.Close() End If
加好友 
发短信
Post By：2017/12/21 15:11:00 [只看该作者]
