VB程序员博客

如题
背景可以透明的
除了png

GIF的现实效果很差<
又要背景可以透明的,又要显示图片最快,不要png,也就是gif了.无语innnnnnnnggif不错啊。
楼主要求很高？代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟，如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意，请联系Q：1145553117。  手机：13544123356、金先生

请问MSHFlexGrid如何显示数据集指定列，例如
MSHFlexGrid的第x列显示Recordset.Fields(y)
请指教，谢谢帮顶的？ 改下sql。我的意思是不改sql，直接设置MSHFlexGrid是不是绑定的？
改sql很难么？帮定多不方便啊  自己写吧2种方法：
1、直接数据绑定，右键>属性，自己设置
2、未绑定，动态插入数据时指定表头和数据<
继续求教，谢谢

MSHFlexGrid1.TextMatrix(某行, 某列) = Recordset.Fields("某字段名")
到罗马，本来有飞机的，一定要走去，随你。

我要在程序中实现：先查到所需要的字符串，然后显示该字符串所在行的整行内容。
请各位指导下，谢谢了

例如：
……..
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找到下一个换行符，显示两个换行符之间的内容。谢了！我也想知道呀

如题，先谢谢!你加了么？
还是和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

<
<

如题，先谢谢!你加了么？
还是和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

<
<

如题。。。

验证码地址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")
一样会刷新啊

如题。。。

验证码地址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")
一样会刷新啊

如题。。。

验证码地址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")
一样会刷新啊

问题：水晶报表已经设置好了，但在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

新建了一个单文档，左树右列表。程序如下，编译没有错误，警告。但就是显示不了界面，大家给点意见啊。
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;
}