跪求vb点虐 代码

这个图案其实可以根据另一个问题中的钻石型图案的绘制方法统一，仅仅是改动了均分圆的分格数为5：图案效果如下不含外接圆。

站在用户的角度思考问题，与客户深入沟通，找到阳原网站设计与阳原网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都做网站、网站建设、企业官网、英文网站、手机端网站、网站推广、域名与空间、网页空间、企业邮箱。业务覆盖阳原地区。

均分圆5格的两两顶点连线

VB点虐 为什么取消了“lenb”“midb”这些函数，点虐 又如何通过变通方法来实现？

include QtCore/QCoreApplication

#include QAxObject

#include Windows.h

int main(int argc, char *argv[])

{

//OleInitialize(0);

//CoInitialize(0);

QCoreApplication a(argc, argv);

QAxObject *asdfg = new QAxObject("Excel.Application");

return a.exec();

}

VB点虐 中如何画图？

VB点虐 与VB不同。

VB点虐 已经有专门绘图的类。

可以定义笔刷然后用Drawing类中的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

如何创建特殊形状的VB按钮？耐心的大侠帮忙啊！！

1，使用其它控件

2，用api切割需要更改的控件，就像做不规则的窗体一样

3，用image加上一些漂亮的ico图标代替command button

当前文章：vb点虐 五角星 五角星html代码
标题来源：http://chengdu.cdxwcx.cn/article/ddihecs.html