VB程序员博客
02 1st, 2010
如题
背景可以透明的
除了png
GIF的现实效果很差
<
又要背景可以透明的,又要显示图片最快,不要png,也就是gif了.
无语innnnnnnng
gif不错啊。
楼主要求很高?
代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟,如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意,请联系Q:1145553117。 手机:13544123356、金先生
01 30th, 2010
请问MSHFlexGrid如何显示数据集指定列,例如
MSHFlexGrid的第x列显示Recordset.Fields(y)
请指教,谢谢
帮顶的? 改下sql。
我的意思是不改sql,直接设置MSHFlexGrid
是不是绑定的?
改sql很难么?
帮定多不方便啊 自己写吧
2种方法:
1、直接数据绑定,右键>属性,自己设置
2、未绑定,动态插入数据时指定表头和数据
<
继续求教,谢谢
MSHFlexGrid1.TextMatrix(某行, 某列) = Recordset.Fields("某字段名")
到罗马,本来有飞机的,一定要走去,随你。
01 27th, 2010
我要在程序中实现:先查到所需要的字符串,然后显示该字符串所在行的整行内容。
请各位指导下,谢谢了
例如:
……..
LIBRARY OPTIONS
"custom_lib";
UNCONNECTED PIN NC;
CAPACITOR
C1B1 10u 20 20 f;
C1B2 10u 20 20 f;
C1B3 10u 20 20 f;
C1B4 10u 20 20 f;
C1B6 10u 20 20 f;
当我查找C1B6时,在一个text.box 中能显示整行内容: C1B6 10u 20 20 f;
定位到这个字符串很容易,就是不知道该怎么显示整行内容?
程序:
….
address= InStr(1, Form1.context1.Text, "C1B6", 0)
下面怎么办?或者有什么另外的办法??
用InStrRev找到上一个换行符,用instr找到下一个换行符,显示两个换行符之间的内容。
谢了!
我也想知道呀
01 27th, 2010
如题,先谢谢!
你加了么?
还是和db绑顶的。
是和记录集绑定的,用这个语句:
Set MSHFlexGrid1.DataSource = rs
然后我再用下面的语句来控制其显示效果
With MSHFlexGrid2
.AllowUserResizing = 1
.ScrollTrack = True
.ColWidth(0) = 0
.ColWidth(1) = 1300
.Row = 0
For i = 0 To .Cols - 1
.Col = i
.CellAlignment = flexAlignCenterCenter
.CellFontBold = True
Next i
End With
但就是不知道如何控制不让其显示列标题
你是不想显示标题还是标题那行?
我是不想显示比如标题那一行(即第一行),比如这一行有字段:“姓名”、“学号”…
msf好像不支持rowhidden,问king04要个vsf
<
<
01 27th, 2010
如题,先谢谢!
你加了么?
还是和db绑顶的。
是和记录集绑定的,用这个语句:
Set MSHFlexGrid1.DataSource = rs
然后我再用下面的语句来控制其显示效果
With MSHFlexGrid2
.AllowUserResizing = 1
.ScrollTrack = True
.ColWidth(0) = 0
.ColWidth(1) = 1300
.Row = 0
For i = 0 To .Cols - 1
.Col = i
.CellAlignment = flexAlignCenterCenter
.CellFontBold = True
Next i
End With
但就是不知道如何控制不让其显示列标题
你是不想显示标题还是标题那行?
我是不想显示比如标题那一行(即第一行),比如这一行有字段:“姓名”、“学号”…
msf好像不支持rowhidden,问king04要个vsf
<
<
01 27th, 2010
如题。。。
验证码地址http://ptlogin2.qq.com/getimage(不定,类似这种验证码都可以)
注意:把验证码下载到本地,再加载的方式我知道,但我不想用这种方式,所以才请教各位大侠
知道的请贴出源码,谢谢。。。。
一楼的不错,我要刷新怎么做?谢谢,我比较菜
帮顶。。。。。
<
<
<
Set Picture1.Picture = LoadPicture()
你在()写上新的地址就可以了
刷新再执行一下。。。
刷新就再点击一下按钮,我试过了,没问题啊
<
找到问题了,你用LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086")我的验证码地址试下,不会刷新的
用你贴的地址就能刷新,没找到原因
<
<
Private Sub Command1_Click()
'// 这里使用的是CSDN登录的验证码。。可以换成你要的地址
Set Picture1.Picture = LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086" & Rnd)
End Sub
试试这个句子
虽然能刷新验证码,但是不知道是不是真正需要的。。。
0.6232099340161086
我看了下,似乎这个字符串每刷新都有变化的。似乎是个随机数来的
忘了 还要添加 Picture1
楼上的也不能刷新。看样子只有rnd可
Private Sub Command2_Click()
WebBrowser1.Refresh
End Sub
加上 Refresh 随时可刷新 Picture1跟着变换新图
嗯,可了。2种办法都学习了.
谢谢Sam Liu和atan,学习了。。。
结贴了,分有点少哈。。
mark
不必使用 WebBrowser控件
'添加 Command1 Command2 Command3 Image1
Dim ie As Object
Dim pic As StdPicture
Private Sub Command1_Click()
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.Visible = True
ie.Navigate "http://passport.csdn.net/ShowExPwd.aspx?temp=fgfhyxti"
End Sub
Private Sub Command2_Click()
Dim CtrlRange
Dim x
For Each x In ie.Document.All
If UCase(x.tagName) = "IMG" Then
Clipboard.Clear
Set CtrlRange = ie.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
Set pic = Clipboard.GetData
Image1.Picture = pic 'Picture1.Picture = pic
'SavePicture pic, "c:zz.bmp"
Exit For
End If
Next
End Sub
Private Sub Command3_Click()
ie.Refresh
End Sub
<
晕了
Set Picture1.Picture = LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086")
一样会刷新啊
01 27th, 2010
如题。。。
验证码地址http://ptlogin2.qq.com/getimage(不定,类似这种验证码都可以)
注意:把验证码下载到本地,再加载的方式我知道,但我不想用这种方式,所以才请教各位大侠
知道的请贴出源码,谢谢。。。。
一楼的不错,我要刷新怎么做?谢谢,我比较菜
帮顶。。。。。
<
<
<
Set Picture1.Picture = LoadPicture()
你在()写上新的地址就可以了
刷新再执行一下。。。
刷新就再点击一下按钮,我试过了,没问题啊
<
找到问题了,你用LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086")我的验证码地址试下,不会刷新的
用你贴的地址就能刷新,没找到原因
<
<
Private Sub Command1_Click()
'// 这里使用的是CSDN登录的验证码。。可以换成你要的地址
Set Picture1.Picture = LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086" & Rnd)
End Sub
试试这个句子
虽然能刷新验证码,但是不知道是不是真正需要的。。。
0.6232099340161086
我看了下,似乎这个字符串每刷新都有变化的。似乎是个随机数来的
忘了 还要添加 Picture1
楼上的也不能刷新。看样子只有rnd可
Private Sub Command2_Click()
WebBrowser1.Refresh
End Sub
加上 Refresh 随时可刷新 Picture1跟着变换新图
嗯,可了。2种办法都学习了.
谢谢Sam Liu和atan,学习了。。。
结贴了,分有点少哈。。
mark
不必使用 WebBrowser控件
'添加 Command1 Command2 Command3 Image1
Dim ie As Object
Dim pic As StdPicture
Private Sub Command1_Click()
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.Visible = True
ie.Navigate "http://passport.csdn.net/ShowExPwd.aspx?temp=fgfhyxti"
End Sub
Private Sub Command2_Click()
Dim CtrlRange
Dim x
For Each x In ie.Document.All
If UCase(x.tagName) = "IMG" Then
Clipboard.Clear
Set CtrlRange = ie.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
Set pic = Clipboard.GetData
Image1.Picture = pic 'Picture1.Picture = pic
'SavePicture pic, "c:zz.bmp"
Exit For
End If
Next
End Sub
Private Sub Command3_Click()
ie.Refresh
End Sub
<
晕了
Set Picture1.Picture = LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086")
一样会刷新啊
01 27th, 2010
如题。。。
验证码地址http://ptlogin2.qq.com/getimage(不定,类似这种验证码都可以)
注意:把验证码下载到本地,再加载的方式我知道,但我不想用这种方式,所以才请教各位大侠
知道的请贴出源码,谢谢。。。。
一楼的不错,我要刷新怎么做?谢谢,我比较菜
帮顶。。。。。
<
<
<
Set Picture1.Picture = LoadPicture()
你在()写上新的地址就可以了
刷新再执行一下。。。
刷新就再点击一下按钮,我试过了,没问题啊
<
找到问题了,你用LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086")我的验证码地址试下,不会刷新的
用你贴的地址就能刷新,没找到原因
<
<
Private Sub Command1_Click()
'// 这里使用的是CSDN登录的验证码。。可以换成你要的地址
Set Picture1.Picture = LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086" & Rnd)
End Sub
试试这个句子
虽然能刷新验证码,但是不知道是不是真正需要的。。。
0.6232099340161086
我看了下,似乎这个字符串每刷新都有变化的。似乎是个随机数来的
忘了 还要添加 Picture1
楼上的也不能刷新。看样子只有rnd可
Private Sub Command2_Click()
WebBrowser1.Refresh
End Sub
加上 Refresh 随时可刷新 Picture1跟着变换新图
嗯,可了。2种办法都学习了.
谢谢Sam Liu和atan,学习了。。。
结贴了,分有点少哈。。
mark
不必使用 WebBrowser控件
'添加 Command1 Command2 Command3 Image1
Dim ie As Object
Dim pic As StdPicture
Private Sub Command1_Click()
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.Visible = True
ie.Navigate "http://passport.csdn.net/ShowExPwd.aspx?temp=fgfhyxti"
End Sub
Private Sub Command2_Click()
Dim CtrlRange
Dim x
For Each x In ie.Document.All
If UCase(x.tagName) = "IMG" Then
Clipboard.Clear
Set CtrlRange = ie.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
Set pic = Clipboard.GetData
Image1.Picture = pic 'Picture1.Picture = pic
'SavePicture pic, "c:zz.bmp"
Exit For
End If
Next
End Sub
Private Sub Command3_Click()
ie.Refresh
End Sub
<
晕了
Set Picture1.Picture = LoadPicture("http://ptlogin2.qq.com/getimage?aid=15000101&0.6232099340161086")
一样会刷新啊
01 17th, 2010
问题:水晶报表已经设置好了,但在vb程序中如何显示出这个报表,请高人指点,新手还请明示。
Getmarg "", "tj.rpt"
FrmRpt!Report1.SelectionFormula = "{pjx.glid}=" & Val(glid) & " and {pjx.username}='" & ComputerName & "'"
FrmRpt!Report1.Formulas(0) = "a='" & Zcdwname & "统计表" & "'"
FrmRpt!Report1.Formulas(1) = "dw='" & Zcdwname & "'"
FrmRpt!Report1.Destination = 0
On Error Resume Next
FrmRpt!Report1.Action = 1
Sub Getmarg(title As String, filename As String)
Dim ssn As New ADODB.Recordset
ssn.Open "select * from report where title='" & title & "' and printer_type='" & PrinterSet & "'", cn
If Not ssn.EOF Then
FrmRpt!Report1.ReportFileName = ReportPath & ssn("filename")
FrmRpt!Report1.MarginLeft = ssn("marginleft")
FrmRpt!Report1.MarginTop = ssn("margintop")
Else
FrmRpt!Report1.ReportFileName = ReportPath & filename
End If
FrmRpt!Report1.Connect = "DSN=" & DsnName & ";UID=" & DatabaseLoginUid & ";PWD=" & DatabaseUserPwd & ";"
ssn.Close: Set ssn = Nothing
End Sub
01 11th, 2010
新建了一个单文档,左树右列表。程序如下,编译没有错误,警告。但就是显示不了界面,大家给点意见啊。
BOOL CMainFrame::OnCreateClient(LPCREATESTRUCT /*lpcs*/,
CCreateContext* pContext)
{
//m_wndSplitter.ShowWindow(SW_SHOW);
if(!m_wndSplitter.CreateStatic(this,1,2))
return FALSE;
if(!m_wndSplitter.CreateView(0,0,RUNTIME_CLASS(CLeftTreeView),CSize(100,100),pContext))
return FALSE;
if(!m_wndSplitter.CreateView(0,1,RUNTIME_CLASS(CDataListView),CSize(100,100),pContext))
return FALSE;
m_pLeftView = (CLeftTreeView*)m_wndSplitter.GetPane(0,0);
m_pDataListView = (CDataListView *)m_wndSplitter.GetPane(0,1);
//link database
/*CString strSql = "provider = SQLOLEDB.1;Password=xuwukong; "
"Persist Security Info = True;User ID = xuwukong; "
"Initial Catalog = IEC61850DB;Data Source = MICROSOF-00808CSQLDB ";
if(!m_conn-> Open(strSql))
return FALSE;*/
return TRUE;
}
BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
if( !CFrameWnd::PreCreateWindow(cs) )
return FALSE;
// TODO: Modify the Window class or styles here by modifying
// the CREATESTRUCT cs
return TRUE;
}
如需要阅读该回复,请