VB画圆形或椭圆形的图片框 - VB / 基础类
一半我们的图片框都是矩形的，载入的图片也只能是矩形，我现在想把矩形编程圆形的或椭圆形，也就是说任意形状的图片框，使载入的图片显示为圆形，应该怎么编程序呢，谢谢帮忙解答
shape控件。选择类型为圆。
VB code:
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Sub Command1_Click()
Dim h As Long
Dim hCl As Long, hC As Long
h = Picture1.hWnd
hC = CreateEllipticRgn(40, 50, 200, 210)
If hC <> 0 Then
SetWindowRgn h, hC, True
End If
DeleteObject hC
End Sub
shape空间能加载图片吗
相关问答：
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
