怎样用VB编写一个自动保存vb里的代码，窗体的小程序

在用VB编程时，我经常搞忘记保存自己的工作，时常发生VB崩溃的情况，但在此打开时之前所做的工作就全部付之东流了。
于是我有了一个想法，就是能不能用VB编写一个软件，它能帮助我自动保存所做的工作，包括窗体，窗体上的控件以及代码。这样，每当发生VB崩溃之类的事后就可以恢复之前的工作。
但我不知道该咋做，不知道大家有没有办法，能不能给个思路，当然越详细越好，谢谢啦！

举报该问题

其他回答

第1个回答 2010-06-16

工具->选项->环境->启动程序时:->保存改变
这样就不怕崩溃了~

第2个回答 2010-06-15

我原来也经常忘记保存的··现在我装了一个VBFriend和msdn两个插件以后，每次运行程序（就是按F5，一般崩溃也是在运行的时候崩溃的）之前会提示你是否要先保存的···我觉得不错的··呵呵··

第3个回答 2010-06-16

以下代码可供参考：

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub
Private Sub Timer1_Timer()
SendKeys ("^f") '模拟按下alt+f
SendKeys ("%") '模拟按下 v
End Sub本回答被提问者采纳

第4个回答 2010-06-15

定时保存可以用timer sendkeys．其实这样也不好．最好养成好习惯，运行前问自己要不要保存．或者将代码复制出去．

第5个回答 2019-09-02

窗体模块？
窗体有很多事件的，不同的事件中编写不同的代码就可以了。

相似回答

用VB做一个简单的小程序答：Private Sub Command1_Click() Me.Cls Dim N As Integer, i As Integer N = InputBox("n=", , 9) For i = 1 To 2 * N - 1 If i <= N Then Print Space(N - i) + String(2 * i - 1, CStr(i)) Else Print Space(N - (2 * N - i)) + String...

vb环境下编制一小程序答：你好，你想问的是如何使用VB编写一个简单的小程序吧？在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，...

如何用VB使编程的程序自动保存?答：Private Sub Timer1_Timer()i = i + 1 If i >= 120 Then i = 0 x = x + 1 Open "d:\temp\" & Date & ".txt" For Append As #1 Print #1, x & " " & text1.Text Close #1 End If End Sub === 你自己的代码 Private Sub Command1_Click()Timer1.Enabled = True End...

用VB写一个小程序.答：vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main()Open "c:\temp\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub

用VB语言实现一个小程序答：小程序很简单，不用控件，代码如下：Dim A(4) As String, B(4) As Integer, C(4) As String, St As StringDim I As Integer, J As Integer, H1 As Integer, H2 As Integer Private Sub Form_Load() Form1.AutoRedraw = True A(1) = "葡萄牙" A(2) = "西班牙" A(...

用vb编写一个小程序程序答：新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。新建一个命令按钮Command1,添加以下代码：Private Sub Command1_Click()Dim i As Integer For i = 1 To 100 If (i Mod 5 = 0)And (i Mod 3 <> 0)Then Text1.Text = Text1.Text & vbCrLf & i Next End ...

VB编写小程序答：代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")d = InputBox("请输入第四个数")sum = a + b + c + d aver = sum / 4 Print ...

用vb编写一个小程序答：代码如下：Option ExplicitPrivate Sub Command1_Click() Dim n(7) As Double Dim k(3) As Double k(3) = 1 Dim j As Integer For j = 1 To 7 n(j) = Val(Controls("Text" & CStr(j)).Text) Next j For j = 1 To 7 k(1) = k(1) + n(j)...

用VB制作小程序答：Option ExplicitPrivate Sub Form_Load() Randomize Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000) '生成100000-999999之间的随机数 Timer1.Interval = 1000 '一秒一次 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Static n As Integer ...

大家正在搜

天正自动保存的文件在哪里 vb程序代码 vb编程入门代码文件自动保存在哪里自动保存怎么设置文档怎么设置自动保存 vb怎么编写自动保存文档如何自动保存