qq_40621901的博客

'有两张图片背景色不同,一为蓝色(TransColor=QbColor(9)),一为紫色(TransColor=QbColor(13))'如果Me.Picture使用了 .gif 的话（背景透明图片),则Transcolor = Rgb(66,66,66) 随你设。'************************* DeskTool 窗体代码。'要换图片的话,调整窗体大小刚好容下图片。

例如，可以向应用程序的主窗体中的 Form_Unload 事件添加代码以便在停机时保存设置值，或者向“选项”对话框的 Form_Unload 事件添加代码以便更新的首选项。下列代码保存 Backup 和 LastEntry 表项的新值，这些表项包含在名为“RegCust”的应用程序的注册位置的启动部分。如果在注册位置的 Software/Microsoft 部分没有应用程序“RegCust”的注册项、或者没有这些指定的部分或注册表项，该代码将创建它。表达式，如果注册表项设置中没有设置值，则返回缺省值。

'注释：请先引用ADODB类库。Dim Export_Str, mdbTable As StringDim rsExport As New ADODB.RecordsetDim conn As New ADODB.ConnectionPrivate Sub Close_cmd_Click()Unload MeEnd SubPrivate Sub EXport_cmd_Click()Dim myPath, myStr As String, myPos As Integer注释：*******