[立足文本、问题驱动、多元解读——读《文本解读与语文]江苏省车辐中等专业学校 梁全德，《文本解读与语文教学新论》是一部由赖瑞云先生主编的一部详细介绍 文本解读 的理论与实践，同时又明确提出 写作和口语交际乃文本解读的两翼...+阅读
1、首先要设计好自己的窗体（在VB里面设计）
2、在ThisWorkbook里面写入程序以下：PrivateSubWorkbook_Open()Application.ScreenUpdating=False关闭屏幕更新Application.Visible=False隐藏工作簿用户登录.Show打开登陆窗体OnErrorResumeNextApplication.ScreenUpdating=False关闭屏幕更新Application.Visible=False隐藏工作簿生产系统.Show打开登陆窗体Application.ScreenUpdating=Trie关闭屏幕更新Application.Visible=True显示工作簿EndSub
3、保存，重新打开就能够进入窗体了
VB设计非方形窗体
我们还是来看一下在VB6中的实现，VB6中实现（借助API函数） 做一个古怪的窗口必须要用的也是此程序中最重要的一个函数就是SetWindowRgn 它的功能就是对指定的窗口进行重画，把这个窗口你选择的部分留下其余的部分抹掉 参数：hWnd：你所要重画的窗口的句柄，比如你想重画form1则应该让此参数为form1.hWnd hRgn：你要保留的区域的句柄，这个句柄是关键，你需要通过别的渠道来获得 在这里的区域是由Combinergn合成的新区域 bRedram：是否要马上重画，一般设为true 函数CombineRgn将两个区域组合为一个新区域 函数Createrectrgn为创建一个由点X1,Y1和X2,Y2描述的矩形区域 函数CreateEllipticRgn为创建一个X1,Y1和X2,Y2的椭圆区域 用DeleteObject这个函数可删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。
对象使用的所有系统资源都会被释放 以下是VB6的代码： Private Declare Function CreateEllipticRgn Lib ＂gdi32＂ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CreateRectRgn Lib ＂gdi32＂ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CombineRgn Lib ＂gdi32＂ (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function SetWindowRgn Lib ＂user32＂ (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function DeleteObject Lib ＂gdi32＂ (ByVal hObject As Long) As Long Private Const RGN_DIFF = 4 Private Sub Form_Load() Dim rgn As Long Dim rgnRect As Long Dim rgnDest As Long rgn = CreateEllipticRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY) rgnRect = CreateRectRgn((Me.Width / Screen.TwipsPerPixelX - 20) / 2, (Me.Height / Screen.TwipsPerPixelY - 20) / 2, (Me.Width / Screen.TwipsPerPixelX + 20) / 2, (Me.Height / Screen.TwipsPerPixelY + 20) / 2) rgnDest = CreateRectRgn(0, 0, 1, 1) CombineRgn rgnDest, rgn, rgnRect, RGN_DIFF SetWindowRgn Me.hWnd, rgnDest, True Call DeleteObject(rgnRect) Call DeleteObject(rgnDest) End Sub Private Sub Command1_Click() End End Sub
谁帮我编一个VB程序要源码以及窗体设计步骤
Private Sub Command1_Click(Index As Integer) Run_Exe Text1.Text End Sub Private Sub Form_Activate() Text1.PasswordChar = ＂#＂ End Sub Private Function Run_Exe(i As String) Select Case i Case ＂123＂: Shell ＂E:\Setup1.exe＂ Case ＂456＂: Shell ＂E:\Setup2.exe＂ Case ＂789＂: Print App.Path Shell App.Path & ＂\789\Setup3.exe＂ Case ＂123456789＂: Shell App.Path & ＂\987\Setup4.exe＂ End Select End Function
shell 起动程序 ，不用可以。你找下相关的API.不过比较麻烦
以下为关联文档：
大一下册综合英语text伊索寓言 Aesop's Fables, ＂Du Hougan If the world is a Marine, then I this is a small fish in the ocean, despite the sea in my book free to travel. One day, I fou...
考研英语真题2006 Text 4五问一、第一句为强调句，楼主弄错了。 二、第二句里面what our economy depends on us forgetting在破折号里面做我们所遗忘的what we forget的补充说明。 三、这是一个省略句，大...
梦幻西游手游风袋什么属性好风袋属性选择热心网友 法宝具有五行属性，五行属性拥有各自的特点： 金：对攻击类型法宝有额外1%加成的效果，对防御系法宝有1%降低效果。 木：对防御类型法宝有额外1%加成的效果，对恢复系法宝有1%...
儿童血铅值为多少是超标铅中毒按国际标准分为五级 ： 一级 小于10(Ug/dI) 越小越好 二级 10~19(Ug/dI) 三级 20~44(Ug/dI) 四级 45~69(Ug/dI) 五级 大于70(Ug/dI) 一到三级血铅水平的患者，即血铅小于4...
Sample text中文是什么意思？？Sample text 中文是样本，例文，原版的意思。例句：Select the sample text, and then copy and paste the sample text to notepad.（选择示例文本，然后复制示例文本并将其粘贴到记...
VB6 TEXT控件数组你是不是form上有十个text1(1)~text1(10)的textbox控件数组，还有一个text2，然后需要比如在text2中输入5，那么text1(6)~text1(10)的可见性都变成false? 只需要作一个改动 将If t...
各位置助教属性加成哪个好助教属性推荐FW教练如果是喜欢远射或狂射的，力量是第一属性首选！如果是喜欢传控的，控球是第一属性首选；然后第二属性当然是头球最好，其实是弹跳！MF教练如果是偏重防守，喜欢打防守反击，抢断是第一...
会计计量属性是什么？会计计量属性是什么会计计量模式是指计量单位和计量属性的有机结合。其中，计量单位是指计量尺度的度量单位，主要指名义货币单位和一般购买力货币单位。名义货币单位是指各国主要流通货币的法定单...
小孩正常铅值为多少小孩正常铅值为多少：病情分析：，意见建议：目前，发达国家已经将儿童铅中毒的诊断标准降低为60ug/L。血铅大于60ug/L就应该积极的排铅毒了。，孩子铅超标一定要排铅。排铅有很多办法，对...
