经核实吧主云霞散人 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 云霞散人吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

我辛辛苦苦整理的VB示例代码，呵呵！ http://www.vbqj.com/upload/示例类代码（云霞散人整理）.rar

偶然间想了个办法觉得可以把自定义的控件弄成半透明的，试了试可以，所以共享一下，代码在图片中保存，呵呵！

我的邮箱是136660631@163.com

Option Explicit Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim GFangXiang As Boolean Dim HWB As Single Dim She() As ShenTi Dim X As Long, Y As Long Dim ZhuangTai(23, 23) As Long Private Type ShenTi F As Long X As Long Y As Long End Type Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim C As Long If KeyCode = 27 Then End If KeyCode = 32 Then If Timer1.Enabled = True Then Timer1.Enabled = False Label1.Visible = True Else Timer1.Enabled = True Label1.Visible = False End If End If C = UBound(She) If GFangXiang = Tr

工作需要.想将挂载在服务器上面的文件直接下载到指定文件夹,但是想加一个百分比的标示(公司很多人不懂计算机,如果等的时间久了会直接关掉程序,这样程序就运行失败了) 我知道下载 但是不会加百分比 请帮帮忙谢谢

我现在要打印窗体，程序如下 可是打印出来的图总是歪的，望高手指点 Me.AutoRedraw = True On Error GoTo Err_Handle '发生错误则转移到Err_handle CommonDialog1.flags = cdlPDPrintSetup CommonDialog1.CancelError = True CommonDialog1.ShowPrinter '显示打印对话框 Printer.Orientation = vbPRORLandscape '横向打印 Printer.CurrentX = (Printer.ScaleWidth - Me.ScaleWidth) / 2 Printer.CurrentY = (Printer.ScaleHeight - Me.ScaleHeight) / 2 PrintForm Printer.EndDoc Exit Sub '退出 Err_Handle: '如果发生

我有个朋友，有个想法，想在网站中有屏保的效果，能自己发信息的那种。他说他看见过，可是我不会，想求教一下，非常感谢回复和支持！衷心感谢！急！急！急！例如！再这个网站屏保中祝贺谁生日什么的！

Option Explicit Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Command1_Click() Dim I As Long, T As Integer For I = 65 To 90 T = GetDriveType(Chr(I) & ":\") If T <> 1 Then Select Case T Case 2 If I < 67 Then Print "软驱：" & Chr(I) & "盘" Else Print "可移动硬盘：" & Chr(I) & "盘" End If Case 3 Print "硬盘：" & Chr(I) & "盘" Case 5 Print "光驱：" & Chr(I) & "盘" End Select End If Next End Sub

http://tieba.baidu.com/f?kw=winnip

呵呵！对于散人的帮助我想我是最多的，散人很疼爱大家，但是我相信最疼爱的肯定是我……（哈哈！不要砸鸡蛋）所以很感谢散人，也代表所有受到散人帮助的同志感谢散人。。。（说实话：喊散人真的让我很不舒服，我想喊……）看看散人能不能猜到我是谁？哈哈……

云霞你好，我做了一个仿记事本的小程序。并且新建了一个护展名：.fxt，打开方式选择的是我做的仿记事本小程序。可是在实际运行的时候出现了问题，就是我双击用自己的程序生成的文本文件，却无法读出原文件的内容。因为我设计的时候只想到了使用通用对话框来获取文件名的方法，所以出现了这个错误。由于表达能力不是很好，只能举一个例子来说明了。请指点： 比如说，我打开我这个记事本程序，从里面输入了一些内容，然后以.fxt扩展

Private Sub Command1_Click() Dim strfilename As String Dim StrText As String Dim TstrText As yhzl Dim m, j, k As Integer StrText = "" Text1.Text = "" j = 1 Open "e:\0.txt" For Random As #1 Len = Len(strdate) For m = 1 To LOF(1) / Len(strdate) Get #1, m, strdate If m < LOF(1) / Len(strdate) Then j = m + 1 Get #1, j, TstrText End If Do While strdate.dz = TstrText.dz j = j + 1 Get #1, j, TstrText Loop m = j - 1 StrText = StrText + strdate.xm + Chr(13) + Chr(10) Next m Close #1 Text1.Text = StrText End Sub 本来是想把筛选出来的记录一行行

我想自己做控件，可是不知道用photoshop画出来的图片需要什么样的格式，请高手指教，谢谢！

如何用sendmessage向某一个窗口发送Ctrl

可能是我的表达能力不强，在网上搜索出来都不是系统的教程，一般都是些具体的东西。想问问吧里的兄弟姐妹们，谁能推荐些有关于之一类的资料，电子书，网站，例子源代码都可以，只要能提供我学习的就行。希望大家多多帮忙，多一点实现资源共享。 最好有系统的教程，文字的也可以。 先谢谢了~~~

Option Explicit Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 '以上声明的API函数的常量均可在VB自带的“API文本浏览器”中取得。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '在窗体的MouseDown事件中加入以下代码。 If Button = 1 Then '判断是否鼠标的左

有群或Q号吗?

Dim C As Long, S As String, S1 As String, FilePath() As String S = Dir(文件夹路径 & "*.*") Do While Len(S) > 0 S1 = UCase(Right(S, 3)) If S1 = "MP3" Or S1 = "MID" Or S1 = "WAV" Then ReDim Preserve FilePath(C) FilePath(C) = 文件夹路径 & S C = C + 1 End If S = Dir Loop If C > 0 Then MsgBox "共有:" & C & " 个音频文件"

在窗体上加两个按钮，把下边的代码加入代码窗口： Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '文件夹打开方式 Private Sub Command1_Click() ShellExecute Me.hwnd, "open", "explorer.exe", "/e,/select,C:\windows", "", 1 End Sub '普通打开方式 Private Sub Command2_Click() ShellExecute Me.hwnd, "open", "explorer.exe", "/select,C:\windows",

为什么这样不能运行? Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 37 Then If KeyCode = 38 Then Print 1 End If End If End Sub

我想要实现单击datalist中的一项,就在text中对应显示相关的内容. Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\PC data\VB\VB1\andy.mdb;Persist Security Info=False" ' (不要在属性栏中的ConnectionString 中重复书写) Adodc1.RecordSource = "select * from 表1 " Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 Text1.DataField = "name" Text2.DataField = "life" End Sub Private Sub Option1_Click() DataList1.ListField = "Name" DataList1.DataField = "Name" DataList1.BoundColumn = "Name" End Sub Private S

我的第一个软件刚刚发布，还有很多不足之处，如果大家在使用中有什么不便之处，或者您有其它更好的想法或建议，欢迎您提出宝贵的意见！如果您提出建议的切实可行，我们将免费给您一个本软件的序列号。

c=ubound(she) 此一句中she的下标是什么变量？我现在懂的很少，云霞散人。 下面是我试验的想看看得到什么结果结果是“下标越界” Private Type jang x As Integer y As Integer z As Integer End Type Private Sub Form_click() Dim a As Integer Dim ju() As jang a = UBound(ju) Print a End Sub

希望有一天,可以达到你的水平!

我用自带的外接程序打包安装时如果其中的数据库文件不放到指定路径就会找不到出错,安装时还要把那些工程窗体一起放上,不然会出错,不知道怎么做才好?

发了帖子，没人会~~~不知云霞老师会不~~~~

如何创建一个名为shiyan.bat的文件？ 在其中输入“试验内容”四个字? 并读取这个文件，将内容（这四个字）赋给Text1.text？ 如何让shiyan.bat最后自己删除自己？谢谢！

Private Sub Command1_Click() SetAttr "C:\Autoexec.Bat", 1 + 2 + 32 Print "C:\Autoexec.Bat 此文件被设定成 只读 & 隐藏 & 保存属性" End Sub 请问,怎么把C盘里的全部文件设置为隐藏呢? c:\*.** 错误flash播放器的代码吧`谢谢啦 lzpqiji@yahoo.com.cn 谢谢谢谢谢谢 顺便`请给我一个f

由于QQ中太过于热闹，我的闲暇时间差不多都被占用了。最近心情不算好，想清静一下，所以从QQ中删除了不少朋友，在这里向大家说声对不起了。如果有什么关于VB的话，可以发在VB吧或我这个云霞散人吧，一个是我也可以留出一点时间来做我的事情，再一个还可以和更多的朋友一起讨论，这样比起只和我一个人讨论来说更有利于学习，谢谢！

能发修改QQ性别的代码吗

VBland

请问，电脑上打开了多个软件，如何让VB窗体始终位于桌面的最前面，无论它是否是当前窗口？ 谢谢！

Dim S As String Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Sub Form_Load() Dim H As Long, L As Long, S1 As String S = "聊天中" Do H = FindWindowEx(0, H, vbNullString, vbNullString) L =

Private Sub Form_Load() MsgBox StrCount("ABCDEFGAB", "AB") End Sub Private Function StrCount(ByVal S As String, S1 As String) As Long Dim L As Long, L1 As Long L = Len(S) L1 = Len(S1) S = Replace(S, S1, "") StrCount = (L - Len(S)) / L1 End Function

Option Explicit Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Sub Form_Load() Dim S As String S = String(255, " ") GetSystemDirectory S, 255 S = Left$(S, InStr(S, Chr(0)) - 1) MsgBox S End Sub

我想问一下这个属性的作用,因为我发现它不能像在list中一样,打上勾就代表选中了.是不是还需要别的设置呢

在学习listview控件时看到一段查找listitem的代码其中有一句是: If b Is Nothing then msgbox "没有要查找的内容" 我想问的是这句if b is Nothing 是什么意思啊,刚学不久,请各位朋友多多指点!

如何把注册表 HEKY_CURRENT_USER/Software/Microsoft/Internet Explorer/TypedURLS 里的TypedURLS 删除掉? 我找到了一些代码,可是不能删除，而且模块还一堆的 散人大哥有什么好的代码吗?

溜来看看~

你上次家问没加上` 我没看见消息啊`` 麻烦你咯``594689333

请问.VB如何读取并修改当前的DNS地址?

要求缩放时候始终先是窗体的中心点，试了好几次了，始终不能以中心来缩放，求教，谢谢！

Option Explicit Private Sub Command1_Click() Dim a As String Open "c:\我的实验.txt" For Input As #1 Do Until EOF(1) = True Input #1,