vb控件mschart 显示 柱状图显示时如何显示 每个柱状图的当前数量
'Ctrl+t找Microsoft DataGrid Control....
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;"
SqlStr = "Select * From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set MsChart1.DataSource = rst '给MsChart1修改数据源
你直接查这个控件的使用方法吧
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
Private Sub Command1_Click()
'显示图方法1
Dim Column As Integer
Dim Row As Integer
With MSChart1
.ColumnCount = 1
.RowCount = 10
For Column = 1 To .ColumnCount
For Row = 1 To .RowCount
.Column = Column
.Row = Row
.data = Round(Rnd * 100, 2)
.RowLabel = Row & "月"
.ColumnLabel = CStr(.data)
Next Row
Next Column
.Plot.SeriesCollection(1).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
End With
End Sub
Private Sub Command2_Click()
' 显示图,方法2
Dim data(1 To 10, 1 To 3)
Dim i As Integer
For i = 1 To UBound(data)
data(i, 1) = i & "月" 'X轴标签
data(i, 2) = i * 10 '第一系列
data(i, 3) = i * 20 '第二系列
Next i
MSChart1.ChartData = data
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
End Sub
我没用过msChart
但用过TChart1,要显示数据用以下代码,你不妨改一下控件名称试试,供参考
TChart1.Series(0).Marks.Visible = True
TChart1.Series(0).Marks.Style = smsValue
...现有表A,包含字段:JID,SILK。表B,包含字段:CHAR,NUM,OBJ。_百度知 ...
Update A Set A.Silk=A.Silk+100*B.OBJ From A INNER JOIN B ON A.HID=B.NUM
vb做个遥控器界面控制单片机数码管显示
bit b1msInt;bit bKeySound;bit b1msMain;bit IR_E; \/\/表示有新的遥控键控下就更新扫描数据 bit b3msint;void SendDataToDispDevice();void Ir_process();void display();void beeping();\/*** 晶振为12 MHZ***\/ \/**定时器1,12 MHZ最大定时为65.53ms***\/ \/\/--- void init(...
急!请教RS485串口通讯的问题
说明:当 EOFEnable 属性设置为 False,OnComm 控件将不在输入流中寻找 EOF 字符。错误消息(MS Comm 控件)下表列出 MSComm 控件可以捕获的错误:值 描述 380 无效属性值 comInvalidPropertyValue383 属性为只读 comSetNotSupported394 属性为只读 comGetNotSupported 8000 端口打开时操作不合法 comPortOpen8001 超时值...
关于VB和西门子PLC的通讯
1.设置OPC SERVER,手册可以去西门子(中国)下载,配置IE模块,设置连接到该PLC的IP地址,这些手册都有的,文档名叫A030.PDF 2.在VB工程中引用sopcdaauto.dll或者通用的opcdaauto.dll,这些可以安装组态软件或者西门子系列软件得到 3.完成2后,就可以直接声明OPC SERVER以及OPC GROUP还有OPC ITEMS了 Pu...
char a[3]={'a','b','c'}; 不是只可以存放2个字符 另一个是\\0吗_百度...
char a[3] 是声明 a 是 char 型数组,有3个元素。char 型数组 可以用来存放一个字符串,也可以用来存放1个1个的字符。char a[3]={'a','b','c'}; 存放3个字符, 可以。char a[3]="abc"; 存放字符串,字符串有4个字节,含结束符\\0. 这样初始化,结束符没地方放,丢弃了。
C++里int ms和ms=0有什么区别?
1,如果是在不同函数里面出现 说明那是全局变量和局部变量的区别了 可以推断出,你的int ms是在函数里面定义了一个局部变量 ms=0;是对全局变量的赋值 2,如果是在一个函数里面出现,会出现两种情况第一种是,int ms是定义局部变量,而ms=0 是给定义的这个变量赋值,第二种情况是,外面有一个同名...
51单片机c语言延时函数 Void delay 1ms(unsigned int ms){un
void delay_ms(unsigned int ms_number) \/\/ ms延时函数 (AT89C51 @ 11.0592MHz){ unsigned int i;unsigned char j;for(i=0;i<ms;i++){ for(j=0;j<200;j++);for(j=0;j<102;j++);} } void Delay(){ unsigned char a,b,c;for(a=0;a<?;a++)for(b=0;b<?;b++)for(c...
如何使用此数据表生成一个n*m的表。(使用ms sql) 具体问题看补充部分...
create table t ([id] int identity(1,1),column_a char(30),column_b char(30),content char(30))---新建表 insert into t values('a1','b1','a1b1')insert into t values('a1','b2','a1b2')insert into t values('a1','b3','a1b3')insert into t values('a2','b1','a...
MSSQL Server查询优化方法
用like '%a%' 查询时,查询耗时和字段值总长度成正比,所以不能用CHAR类型,而是VARCHAR。对于字段的值很长的建全文索引。9、DB Server 和APPLication Server 分离;OLTP和OLAP分离10、分布式分区视图可用于实现数据库服务器联合体。联合体是一组分开管理的服务器,但它们相互协作分担系统的处理负荷。这种通过分区数据...
用C语言制作基于单片机的数字温度计设计的原理图好程序 51单片机_百度...
WriteOneChar(0xCC); \/\/跳过读序号列号的操作 WriteOneChar(0xBE); \/\/读取温度寄存器等(共可读9个寄存器) 前两个就是温度 delay_18B20(100);a=ReadOneChar(); \/\/读取温度值低位 b=ReadOneChar(); \/\/读取温度值高位 temp1=b<<4; \/\/高8位中后三位数的值 temp1+=(a&0xf0)>...
况爬产灵: 'Ctrl+t找Microsoft DataGrid Control.... '菜单"工程"->"引用" 找 Microsoft ActiveX Data Object.... Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SqlStr As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data...
吉州区13378474979: VB中的MSChart控件怎么让它在柱子上面显示值 - ?
况爬产灵: 没办法,只能在单击这个数据点的时候,弹出msgbox显示值
吉州区13378474979: 设计一个VB程序,实现将一组文本框中的数据按柱状图显示 - ?
况爬产灵: Private Sub Command1_Click() Dim arrPrices(1 To 4) Dim i As Integer With MSChart1.chartType = VtChChartType2dBar For i = 1 To 4 arrPrices(i) = Val(Text1(i - 1).Text) Next i MSChart1.ChartData = arrPrices End With End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 3 Text1(i).Text = i + 1 Next i End Sub
吉州区13378474979: vb中如何让数据库中的表1 的 信息 显示在 MSChart控件中作个柱状统计图 红色代表已加工 - ?
况爬产灵: 使用mschart控件
吉州区13378474979: VB中的mschart控件画一个柱状图 您是不是有一个例子能给我传一下吗?谢谢了 asfx321@163.com - ?
况爬产灵: 你用的6.0? 你直接画两个椭圆然后加上两条边不就是一个如圆柱体了么
吉州区13378474979: VB MSChart 能否动态显示柱状图? - ?
况爬产灵: 在画面里 添加一个时钟, 把Timer1的Interval = 1000,然后 写下如下代码 Private Sub Timer1_Timer() constr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databases\EXAMPLE1.mdb;" '设置数据库连接字符串 ...
吉州区13378474979: 怎么样在VB中显示Excel的图(比如柱状图)?
况爬产灵: 你可以使用MSCHART控件,它是ActiveX控件,要自己从工程/部件中引用 也可以用Ole控件,工具箱上就有
吉州区13378474979: 急!vb中mschart 连接到access中数据生成柱状图,横向是时间,竖向是so2和no2的值..急求代码 - ?
况爬产灵: 'Ctrl+t找Microsoft MsChart Control.... '菜单"工程"->"引用" 找 Microsoft ActiveX Data Object.... Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SqlStr As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data ...
吉州区13378474979: VB中如何使用mschart控件画曲柱形图并连接数据库 - ?
况爬产灵: '姓名,类型和金额 时间有限,只做了一个 姓名和金额的东西,以供你参考 Chart1我做的是一个饼状图 你改下属性应该可以的 Chart1.Row = 1 Dim i As Integer For i = 1 To Chart1.ColumnCount Chart1.Column = i Chart1.Data = 0 Next sql = "...
吉州区13378474979: VC里的MSChart控件怎样让它竖着显示走线??
况爬产灵: 这个很简单MSChart的标注在行数太多时就竖着显示