两个问题

redwrite 2003-12-01 10:14:41
一、点击listview空白行的事件是什么，也就是说从怎么方法可得到员工是点击空白行的（没有记录的行）

二、有什么方法可以实现当一个窗体完成装载好了的时候才显示

请大家帮帮我，谢谢
...全文
43 42 打赏 收藏 转发到动态 举报
写回复
用AI写文章
42 条回复
切换为时间正序
请发表友善的回复…
发表回复
Mars.CN 2003-12-21
  • 打赏
  • 举报
 回复
二、有什么方法可以实现当一个窗体完成装载好了的时候才显示
答：load()事件
redwrite 2003-12-18
  • 打赏
  • 举报
 回复
to chewinggum(口香糖·向星星前进)
虽然你的方法不是常规方法，但是针对我的问题却很有效，谢谢啦
保留三天后结贴。
cdsh123 2003-12-17
  • 打赏
  • 举报
 回复
其实你可自己编函数。
1。工程的启动改为sub main，先调用一函数装载窗体(load)，处理完数据后show 出此窗体。
2。把窗体属性改为autoredraw属性改为true.
3。自己多多调试，但最好不要单步调试，那样可能不正常。
脆皮大雪糕 2003-12-17
  • 打赏
  • 举报
 回复
别把问题都往复杂的地方想，一些简单的办法往往能达到想要的结果。
好了，我把两个问题都解决了，接分了！呵呵:)
脆皮大雪糕 2003-12-17
  • 打赏
  • 举报
 回复
咳，仅仅是需要form_load事件后还是不需要显示的话就用下面这段代码：
一个窗体，一个timer，timer是为了每隔一段时间提醒你一下以便你决定窗体是否显示出来

Private Sub Form_Load()
Me.Hide
Positionx = Me.Left
Positiony = Me.Top '保存当前位置

Me.Left = -10000
Me.Top = -10000

MsgBox "窗体现在隐藏到屏幕的不可见区域"

'这里可以做你想做的事情

Timer1.Enabled = True
Timer1.Interval = 10000
Me.Show
End Sub

Private Sub Timer1_Timer()
If MsgBox("现在是否显示窗体？此提示每10秒显示一次，以便你能做出决定", vbYesNo) = vbYes Then
Me.Left = Positionx
Me.Top = Positiony
End If
End Sub
landongfang 2003-12-17
  • 打赏
  • 举报
 回复
每一次要执行
listview1.ListItems.Clear
listview1空白的多余行
fangyds 2003-12-17
  • 打赏
  • 举报
 回复
你也可以在Form2上添加一个Command(Visible=False)并添加代码：
Form1.Show
Unload Form2
修改Sub Main为：
Public Sub main()
' Load Form1
Form2.Show
Dim starttime As Long
Dim endtime As Long
Dim i As Long
DoEvents
starttime = timeGetTime
For i = 0 To 100000
Form1.List1.AddItem Format$(i, "000000")
Next i
endtime = timeGetTime
Form1.Label1.Caption = "用时：" & endtime - starttime & "ms"
Form2.Label1.Caption = "数据加载完毕。"
Form2.Command1.Visible = True
' Unload Form2
' Form1.Show
End Sub
这样一来，如果你不按Form2上的Command的话，Form1将不会被显示。
landongfang 2003-12-17
  • 打赏
  • 举报
 回复
简单：
Form2.Tag="Form2"
Form2.Show 1
landongfang 2003-12-17
  • 打赏
  • 举报
 回复
If listview1.SelectedItem Is Nothing Then
msgbox "点了空白的"
End If
fangyds 2003-12-17
  • 打赏
  • 举报
 回复
第二个问题是否可以这样：
把加载数据及显示窗体的代码写在Sub Main中(当然工程的启动属性要改为Sub Main喽)
而不是在窗体的Load事件中加载数据。
需要两个窗体，属性全部使用默认和一个模块
Form1中添加一个ListBox和一个Label，同样全部使用默认属性
Form2为启动画面

'以下代码在模块中
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Public Sub main()
' Load Form1
Form2.Show
Dim starttime As Long
Dim endtime As Long
Dim i As Long
DoEvents
starttime = timeGetTime
For i = 0 To 200000
Form1.List1.AddItem Format$(i, "000000")
Next i
endtime = timeGetTime
Form1.Label1.Caption = "用时：" & endtime - starttime & "ms"
Unload Form2
Form1.Show
End Sub
redwrite 2003-12-17
  • 打赏
  • 举报
 回复
Dim i As Long
Dim j As Long
Private Sub Form_Load()
Me.Hide

End Sub

一至运行到End sub 都是看不见的，也是我需要的效果，
但是End Sub这句运行结束，窗出来了，不知道为啥...
rexyudl 2003-12-17
  • 打赏
  • 举报
 回复
用断点跟踪测试啊！
rexyudl 2003-12-17
  • 打赏
  • 举报
 回复
你自己去做个实验啊！
在
Dim i As Long
Dim j As Long
Private Sub Form_Load()
Me.Hide
For i = 1 To 100000
For j = 1 To 1000
x = j + 1
Next j
Next i
Me.Show
End Sub
看看出什么效果！
我认为完全可以满足你的要求啊！
你可能还是有地方没有用对吧？
redwrite 2003-12-17
  • 打赏
  • 举报
 回复
up
redwrite 2003-12-16
  • 打赏
  • 举报
 回复
to ： rexyudl(隼)
我在能加me.hide的所有地方都加了，可是就是不行
也不知道哪里出现了毛病
flc 2003-12-15
  • 打赏
  • 举报
 回复
关注
rexyudl 2003-12-15
  • 打赏
  • 举报
 回复
Private Sub Form_Load()
Me.Hide
"执行操作的语句"
Me.Show
End Sub
难道这样做不可以吗？
赴日工作招聘程序员 2003-12-15
  • 打赏
  • 举报
 回复
我也没细看上面的,我的解决办法是加一个空格行进去,就是有一行item值是一些空格.如果让这行选中,哪么就像是什么也没选一样了吧.呵呵.如果和上面的重了就不算了.88.
rexyudl 2003-12-15
  • 打赏
  • 举报
 回复
大数据量SQL语句查询时候花费的时间比较长。
那么你可以在
窗体.SHOW之前把查询做完。
赋给一个公用记录集然后窗体.SHOW再把功用记录集里的数据赋给要显示数据的控件！
这样做可以节省出执行查询操作的时间！

这种龌龊的招我都能想出来！！！
晕死！
脆皮大雪糕 2003-12-15
  • 打赏
  • 举报
 回复
对于第二个问题
Private Sub Form_Load()
Me.Hide
'do something what you want
Me.Show
End Sub
加载更多回复（22）
java六大必须理解的问题 文档
java六大必须理解的问题、内容比较详细、写的比较具体
standard-1.1.2.jar和jstl-1.1.2.jar
使用这两个标签时也勿必保持其版本的一致！否则就会报很奇怪的错误哦
DirectX修复工具 V3.3标准 绿色版
DirectX修复工具(DirectX Repair)是一款系统级工具软件，简便易用。本程序为绿色版，无需安装，可直接运行。 本程序的主要功能是检测当前系统的DirectX状态，如果发现异常则进行修复。程序主要针对0xc000007b问题设计，可以完美修复该问题。本程序中包含了最新版的DirectX redist(Jun2010)，并且全部DX文件都有Microsoft的数字签名，安全放心。 本程序为了应对一般电脑用户的使用，采用了傻瓜式一键设计，只要点击主界面上的“检测并修复”按钮，程序就会自动完成校验、检测、下载、修复以及注册的全部功能，无需用户的介入，大大降低了使用难度。 本程序适用于多个操作系统，如Windows XP（需先安装.NET 2.0，详情请参阅“致Windows XP用户.txt”文件）、Windows Vista、Windows 7、Windows 8、Windows 8.1、Windows 8.1 Update、Windows 10，同时兼容32位操作系统和64位操作系统。本程序会根据系统的不同，自动调整任务模式，无需用户进行设置。 本程序的V3.3版分为标准版、增强版以及在线修复版。其中的标准版以及增强版都包含完整的DirectX组件。除此之外，增强版中还额外包含了c++ Redistributable Package，因此增强版不但能解决DirectX组件的问题，而且还能解决c++组件异常产生的问题。增强版适合无法自行解决c++相关问题的用户使用。在线修复版的功能与标准版相同，只是其所需的文件将通过Internet下载，因此大大减小了程序的体积。本程序的各个版本之间，主程序完全相同，只是配套使用的数据包不同。因此，当您使用标准版数据包时，程序将进行标准修复；当您使用增强版的数据包时，程序将进行增强修复；当数据包不全或没有数据包（即只有DirectX Repair.exe程序）时，程序将进行在线修复。在线修复、离线修复可自由灵活组合，充分满足不同用户的需要。 本程序自V2.0版起采用全新的底层程序架构，使用了异步多线程编程技术，使得检测、下载、修复单独进行，互不干扰，快速如飞。新程序更改了自我校验方式，因此使用新版本的程序时不会再出现自我校验失败的错误；但并非取消自我校验，因此程序安全性与之前版本相同，并未降低。 程序有自动更新c++功能。由于绝大多数软件运行时需要c++的支持，并且c++的异常也会导致0xc000007b错误，因此程序在检测修复的同时，也会根据需要更新系统中的c++组件。自V3.2版本开始使用了全新的c++扩展包，可以大幅提高工业软件修复成功的概率。修复c++的功能仅限于增强版，标准版及在线修复版在系统c++异常时（非丢失时）会提示用户使用增强版进行修复。 程序有两种窗口样式。正常模式即默认样式，适合绝大多数用户使用。另有一种简约模式，此时窗口将只显示最基本的内容，修复会自动进行，修复完成10秒钟后会自动退出。该窗口样式可以使修复工作变得更加简单快速，同时方便其他软件、游戏将本程序内嵌，即可进行无需人工参与的快速修复。开启简约模式的方法是：打开程序所在目录下的“Settings.ini”文件（如果没有可以自己创建），将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能，开启该功能后用户可以自主选择要修复的文件，避免了其他不必要的修复工作。同时，也支持通过文件进行辅助筛选，只要在程序目录下建立“Filter.dat”文件，其中的每一行写一个需要修复文件的序号即可。该功能仅针对高级用户使用，并且必须在正常窗口模式下才有效（简约模式时无效）。 本程序有自动记录日志功能，可以记录每一次检测修复结果，方便在出现问题时，及时分析和查找原因，以便找到解决办法。 程序的“选项”对话框中包含了4项高级功能。点击其中的“注册系统文件夹中所有dll文件”按钮可以自动注册系统文件夹下的所有dll文件。该项功能不仅能修复DirectX的问题，还可以修复系统中很多其他由于dll未注册而产生的问题，颇为实用。点击该按钮旁边的小箭头，还可以注册任意指定文件夹下的dll文件，方便用户对绿色版、硬盘版的程序组件进行注册。点击第二个按钮可以为dll文件的右键菜单添加“注册”和“卸载”项，方便对单独的dll文件进行注册。请注意，并不是所有的dll文件都可以通过这种方式注册。点击“DirectX版本”选项卡可以自行修改系统中DirectX的版本信息。点击“DirectX加速”选项卡可以控制系统中DirectX加速的开启与关闭。 新版程序集成了用户反馈程序，可以在用户允许的前提下发送检测修复结果。用户也可以在出现问题时通过反馈程序和软件作者进行交流，共同查找问题。反馈是完全自愿和匿名（如果不填写E-mail地址）的。 本程序的通用版基于Microsoft .NET Framework 2.0开发，对于Windows 2000、Windows XP、Windows 2003的用户需要首先安装.NET Framework 2.0或更高版本方可运行本程序。有关下载和安装的详细信息请参阅“致Windows XP用户.txt”文件。对于Windows Vista、Windows 7及后续用户，可以直接运行本程序。 同时鉴于Windows 8（Windows 8.1、Windows 8.1 Update）、Windows 10系统中默认未包含.NET Framework 2.0，因此新版的程序文件夹内将包含一个DirectX_Repair_win8的特别版程序，该程序功能与通用版相同，基于.NET Framework 4.0开发，可以在Windows8（Windows 8.1、Windows 8.1 Update）、Windows 10系统中直接运行（其他系统如果安装了.NET Framework 4.0也可以运行这个特别版的程序）。 本程序的官方博客地址为：http://blog.csdn.net/vbcom/article/details/6962388 所有的更新以及技术支持都可以到该博客上找到。
两个视频左右拼接成一个视频，且两个视频音频都保留
背景 现在遇到了一个这样的问题，有两个视频，分辨率大小一致，需要将两个视频左右拼接在一起，类似直播平台打PK时的那种，左边是一个画面，右边是另一个画面的场景。面对这样的问题，我首先的做法是看一下ffmpeg是否有现成的命令，直接在一个画布上放置两个视频。但是搜索了很久没有找到满意的结果，加上给我的时间比较短，所以我采取了简单但是步骤比较多的方式解决了该问题。 技术 语言：python3.6 组件：opencv、ffmpeg 思路 1、首先使用opencv将两个视频全部图片帧提取出来。 2、按.
左神算法：两个单链表相交的一系列问题（链表是否有环 / 两无环链表是否相交 / 两有环链表是否相交）
本题来自左神《程序员代码面试指南》“两个单链表相交的一系列问题”题目。 题目 在本题中，单链表可能有环，也可能无环。给定两个单链表的头节点 head1 和 head2，这两个链表可能相交，也可能不相交。请实现一个函数，如果两个链表相交，请返回相交的第一个节点；如果不相交，返回 null 即可。 要求：如果链表 1 的长度为 N，链表 2 的长度为 M，时间复杂度请达到 O(N+M)，额外空间复杂度请达到 O(1)。 题解 本题可以拆分成 三个子问题，每个问题都可以作为一道独立的算法题，具体如下。 问题.
VB基础类

7,789

社区成员

197,583

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章