VB程序员博客

如何获取正在运行的别人的程序中的列表框中的文字？或列表框中有多少行。 

别人的程序用的是SysListView32。 

麻烦哪位朋友写点源代码让我学习一下，谢谢！

如需要阅读该回复，请登录或注册

不会用钩子~~~

如何获取正在运行的别人的程序中的列表框中的文字？或列表框中有多少行。 

别人的程序用的是SysListView32。 

麻烦哪位朋友写点源代码让我学习一下，谢谢！

如需要阅读该回复，请登录或注册

不会用钩子~~~

如何获取正在运行的别人的程序中的列表框中的文字？或列表框中有多少行。 

别人的程序用的是SysListView32。 

麻烦哪位朋友写点源代码让我学习一下，谢谢！

如需要阅读该回复，请登录或注册

不会用钩子~~~

+' <td id=menu8 align="center" nowrap="nowrap" width=83> <span color="#082d71" onclick="javascript:ActionHandle(2355703,8);" onmouseover="this.style.cursor='hand';"> <font color="#082d71">&nbsp;管理 </font> </span> </td>'

请问题用VB怎么触发点击如上代码“管理”链接谢谢!!!没有人回答吗？
急引用MSHTML，遍历到这个连接对象，调用这个对象的click()方法<
dim objDoc  as mshtml.htmldocument
dim objLink  as mshtml.htmllinkelement

'取得文档对象接口
set objdoc=WebBrowser1.document

'遍历所有连接
for each objlink in objdoc.links
    if instr(1,objlink.tostring,"管理") then
        objlink.click()
        exit for
    endif
next没有用哦，算了。
自已找别人办法，谢谢你们啊

我用vb做了个文件，对话框打开文本，将文本显示在textbox中，现在我想把所有的文字都翻转180度，从右向左读，并每个字就向从纸背面看到的效果一样是翻着的。（我用Textbox可以吗 听说翻转要用picturebox是这样的吗）请高手指点。

如需要阅读该回复，请登录或注册

肯定得用api,我就是纳闷,
文本框是显示文字的,不是图象处理用的,为什么非要这么做好像枕善居里有这方面的例子，你去找下。1楼答案不错！这个使用图像来处理可能更好用两个 PictureBox ，一个作为后台缓冲，一个用来显示输出。
把 .AutoRedraw 设置成 True ，两个的大小一样。

用 Picture.Print 方法把文字输出到 缓冲 中。

然后用 API : StretchBlt() 把缓冲中的图像水平翻转后画到 前台显示 的 PictureBox 中。

Option Explicit
  Const Pi = 3.14
  Private Sub CommandRototate_Click()
          Dim x    As Integer, y      As Integer
          Dim X1    As Integer, Y1      As Integer
          Dim X2    As Double, Y2      As Double
          Dim X3    As Double, Y3      As Double
          Dim JiaoDu    As Double
          Dim HuDu    As Double
          PicSource.Cls
          PicTarget.Cls
          Dim i As Integer
          For i = Len(Text1.Text) To 1 Step -1
          PicSource.Print Mid(Text1.Text, i, 1);
          Next i
          JiaoDu = 180                                '  注释：  角  度
          HuDu = JiaoDu * Pi / 180                    ' 注释：  弧  度
          PicSource.ScaleMode = vbPixels
          PicTarget.ScaleMode = vbPixels
          For x = 0 To PicTarget.ScaleWidth
                  X1 = x - PicTarget.ScaleWidth 2
                  For y = 0 To PicTarget.ScaleHeight
                          Y1 = y - PicTarget.ScaleHeight 2
                          X2 = X1 * Cos(-HuDu) + Y1 * Sin(-HuDu)
                          Y2 = Y1 * Cos(-HuDu) - X1 * Sin(-HuDu)
                          X3 = X2 + PicSource.ScaleWidth 2
                          Y3 = Y2 + PicSource.ScaleHeight 2
                          If X3 > 0 And X3 < PicSource.ScaleWidth - 1 And Y3 > 0 And Y3 < PicSource.ScaleHeight - 1 Then
                          PicTarget.PSet (x, y), PicSource.Point(X3, Y3)
                          End If
                  Next y
          Next x
  End Sub

这种都挺好，但如果PicSource后面比较留出空位多，PicTarget前面也会留出空位来，请问能否有好的方法吗？谢谢了。

参考一下吧：
http://topic.csdn.net/u/20081020/17/452ec679-d433-44d2-9035-ab067cb4add6.html

please use GDI.

谢谢各位。

我在界面上用了一个listview控件，把checkbox设置为true，就是让listview在显示的时候，里面的记录是可划勾选择的
可我在listview里添加的记录，文字太长了，显示不下，谁能帮我解决这个问题？我用的view属性是2-lvwlist

为什么不用REPORT模式呢

是不是用lvwlist这个模式就只能显示12个字符呢？我知道REPORT模式，因为我的数据量比较大，我想用lvwlist模式显示会比较好看一些，谁有好方法呢？

指定栏位宽度

怎样指定啊？好像没有这个属性吧？

请问如何在VB中将文字左右移动，或者上下移动，实现平滑移动，就是没有闪烁的情况出现，请高手帮忙，谢谢

在TIMER中用MOVE方法来移动,移动的频率低一点,移动的幅度小一点

这个方法不能从根本解决这个问题啊
我是想无论客户设置移动速度是多少，都不会出现闪烁的情况

平滑不平滑就一是速度的问题。二就是刷新区域的问题。速度越快，区域越小就越平滑，无它。

本人想美化程序界面,通过努力现实现渐变色文字了。

可看到发光字也很好看，请问vb中如何实现此功能。

另问下，本论坛如何贴图?

文字是根据需要生成的，事先并不知道
我现在做成这样了

想再实现这样的效果

很明显,这是图像处理的事,先找出边缘,再散射,看这个架势,中间架空的部分没有散射,还得和原字来一次XOR之类的贴图

看样将原来的文字模糊了，然后再贴上一个清楚的文字。

有具体代码的么?

SendMessage 句柄, EM_REPLACESEL, 0, ByVal 文字
第一次使用便会把改句柄的文字改为想要的文字，但第二次使用文字就会添加到第一次修改的文字后面。。。。

请问各位大侠如何修改文字，而不是追加文字。。。。

Private Const EM_REPLACESEL = &HC2

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

用这个也可以.

setWindowText 句柄,文字

谢谢。。。姐姐真勤快哦。。。