VB做完程序后怎么保存啊？

1、首先，用以下程序设置使VB保存和存储到数据库。

2、接着继续输入程序图片存入数据。

3、老漏迟在数据库中读出图片。

4、最后通过以下程序的输入使得可以用临时文件保存。

5、最后继续添加如侍李下程序编码，如此搜基一来就可以完成VB自动保存到数据库存的 *** 作了。

有现成的代码，拿来用就是。

Function Base64Encode(Str() As Byte) As String                                  'Base64 编码  

    旅卖On Error GoTo over                                                          '排错  

    Dim buf() As Byte, length As Long, mods As Long  

    Const B64_CHAR_DICT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="  

    mods = (UBound(Str) + 1) Mod 3   '除以3的余数  

    length = UBound(Str) + 1 - mods  

    ReDim buf(length / 3 * 4 + IIf(mods <> 0, 4, 0) - 1)  

    Dim i As Long  

    For i = 0 To length - 1 Step 3  

        buf(i / 3 * 4) = (Str(i) And &HFC) / &H4  

        buf(i / 3 * 4 + 1) = (Str(i) And &H3) * &H10 + (Str(i + 1) And 拆闷逗&HF0) / &H10  

        buf(i / 3 * 4 + 2) = (Str(i + 1) And &HF) * &H4 + (Str(i + 2) And &HC0) / &H40  

        buf(i / 3 * 4 + 3) = Str(i + 2) And &H3F  

    Next  

    罩昌If mods = 1 Then  

        buf(length / 3 * 4) = (Str(length) And &HFC) / &H4  

        buf(length / 3 * 4 + 1) = (Str(length) And &H3) * &H10  

        buf(length / 3 * 4 + 2) = 64  

        buf(length / 3 * 4 + 3) = 64  

    ElseIf mods = 2 Then  

        buf(length / 3 * 4) = (Str(length) And &HFC) / &H4  

        buf(length / 3 * 4 + 1) = (Str(length) And &H3) * &H10 + (Str(length + 1) And &HF0) / &H10  

        buf(length / 3 * 4 + 2) = (Str(length + 1) And &HF) * &H4  

        buf(length / 3 * 4 + 3) = 64  

    End If  

    For i = 0 To UBound(buf)  

        Base64Encode = Base64Encode + Mid(B64_CHAR_DICT, buf(i) + 1, 1)  

    Next  

over:  

End Function

解码的自己找，不伺候懒汉。

在一楼的基础上

我来说明你应该如何段族雹来添加WindowsMediaPlayer控件

首先随便将鼠标放在工具箱的一个控件上

，然后单击右键，选择“部件”选项，然后在d出的对话框中的上方选择“可插入对象”，然后在列表中选择WindowsMediaPlayer，打个勾就是了。然后确定。最后你就可以看到工具箱中有WindowsMediaPlayer控件了。就是握帆WindowsMediaPlayer的图标的那个控件。

如果你想播放背景音乐的话就将他的属性设置成不可见就是了。如果要穗首用户控制的话就可见。像使用WindowsMediaPlayer一样的

Private

Sub

Form_Load()

WindowsMediaPlayer1.URL

=

"G:\音乐\TANK\懂了.mp3"

End

Sub

---