VB6代码
wea1978
生活在江湖,江湖中却没有我
展开
-
vb CommonDialog printer 的flags设置
语法 object.Flags [= value] Flags 属性语法有下列部分: 部分 描述 object 对象表达式,其值是“应用于”列表中的对象。 value 如“设置值”中所描述,为“打印”对话框指定选项的常数或值。 设置值 value 的设置值转载 2007-01-18 21:11:00 · 1922 阅读 · 0 评论 -
VB6 保存和读取图片到数据库
dim stm as ADODB.Streamdim rs as ADODB.Recordsetsub SavePictureToDB(cn As ADODB.Connection) 将图片存入数据库 On Error GoTo EH Set stm = New ADODB.Stream转载 2007-01-26 15:56:00 · 3999 阅读 · 0 评论 -
不要textbox令MshflexGrid有编辑功能
MshflexGrid 取名 Grid1.Private Sub Form_Load()Grid1.Rows = 10Grid1.Cols = 7End SubPrivate Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)Dim X As LongDim Y As LongDim L As LongDim Tmp As转载 2007-06-27 11:21:00 · 897 阅读 · 0 评论 -
按条件指定MSHFlexGrid单元格字体颜色
Sub loaddata(sqlselstr As String) 根据传递的sql,加载数据到MSHFlexGrid,并按要求显示所要的颜色 dim i as long,irow as longdim rst as new adodb.recordsetWith MSHFlexGrid Screen.MousePointer = 11 rst.Open sqlsel原创 2007-04-25 14:30:00 · 3887 阅读 · 1 评论 -
读取Excel内容到MSHFlexgrid
Public Sub ExcelToMshfgrd(FileName As String, ByRef RowCount As Integer, ByRef ColCount As Integer, mshg As MSHFlexGrid) 直接导入Excel内容到MshFlexGrid If InStr(FileN原创 2007-10-10 17:49:00 · 1129 阅读 · 0 评论