VB高手进——菜单状态判断我自己做了一个按钮,有正常、被按下、...
菜单是什么做的?是Form做的吗? 用Form_Activate试试? 假如用Form2做了个菜单,点击Form1上的Command1能显示Form2的话,Form2关闭了之后Form1变成当前活动的窗体,会触发Form1的Form_Activate。
Private Sub Command1_Click() If Command1.Caption = "up" Then Command1.Caption = "down" Form2.Show End If End Sub Private Sub Form_Activate() Command1.Caption = "up" Form2.Hide End Sub Private Sub Form_Load() Command1.Caption = "up" End Sub 或者用Form2的Form_Unload Private Sub Form_Unload(Cancel As Integer) Form1.Command1.Caption = "up" End Sub ==================================== 评论已看,谢谢^o^ 那个菜单是用PopupMenu显示的吗? 如果是的话直接在下面加改变按钮状态的话就行了。
PopupMenu下面的话是要等菜单消失后才执行的。
Private Sub Command1_Click() Me.PopupMenu aaaa Command1.Caption = "up" End Sub Form_Activate、Form_Deactivate两个事件可以捕获一个窗体在活动窗体和非活动窗体两种状态之间的变化。
多个窗体的程序里有时候还是挺方便的。
TCS2010在Word2013下如何安装? 提示TCSAddIn.DLL无法安装,关...
Private Sub Form_Load() Dim nodX As Node Set nodX = TreeView1.Nodes.Add(, , "R", "根目录") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "子目录1") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "子目录2") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "子目录3") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "子目录4") nodX.EnsureVisible '如果不加此句,则默认为不展开 TreeView1.Style = tvwTreelinesText TreeView1.BorderStyle = ccFixedSingle End Sub
c#/.net 如何把word文件储存到服务器
web还是form?存数据库的话用image类型,是以二进制存的,最大可存2GFileStream myfilestream = new FileStream("文件地址",FileMode.Open,FileAccess.Read);int len1 = Convert.ToInt32(myfilestream.Length);byte[] data = new byte[len1];myfilestream.Read(data, 0, len1);myfilestream.Close();this.sqlOpen();cmd = "INSERT INTO FileTab (FileDoc) VALUES(@img)";SqlCommand sqlcmd =new SqlCommand(cmd,conn);SqlParameter pada = new SqlParameter("@img",SqlDbType.Image);pada.Value=data;sqlcmd.Parameters.Add(pada);sqlcmd.ExecuteNonQuery();
word 文档关闭后 出现“是否保存对Sw
在专业论坛上找了一个:Sub Macro1()Dim p$, f$, s$, a, arr, brr(1 To 6000, 1 To 20), d As Object, i&, l&, m&Set d = CreateObject("scripting.dictionary")a = Array("aaa", "身份证号码", "年龄", "姓名", "性别", "工作", "职业", "兴趣", "住址")For i = 1 To UBound(a)d(a(i)) = iNextp = ThisWorkbook.Path & "\"With CreateObject("word.application").Visible = Falsef = Dir(p & "*.doc")Do While f <> "".Documents.Open p & fFor l = 1 To .ActiveDocument.Tables.CountWith .ActiveDocument.Tables(l)For i = 1 To .Rows.Counts = Replace(.Cell(i, 1).Range.Text, Chr(7), "")s = Left(s, Len(s) - 1)If d.Exists(s) Then brr(m + d(s), 2) = Replace(.Cell(i, 2).Range.Text, Chr(7), "")NextFor i = 1 To 8brr(m + i, 1) = a(i)NextEnd Withm = m + 9Next.ActiveDocument.Closef = DirLoop.QuitEnd WithSet MyWord = NothingActiveSheet.UsedRange.ClearContents[a1].Resize(m, 2) = brrEnd Sub
vb.net 后台获取word中表格
'转到表格Public Sub GotoTheTable(ByVal ntable As Integer)Dim missing = System.Reflection.Missing.ValueDim what = Word.WdGoToItem.wdGoToTableDim which = Word.WdGoToDirection.wdGoToFirstDim count = ntableoWordApplic.Selection.GoTo(what, which, count, missing)oWordApplic.Selection.ClearFormatting()oWordApplic.Selection.Text = ""orange = oDocument.Tables(ntable).Cell(1, 1).Rangeorange.Select()End Sub
怎么才能使用word文档目录
如果要插入目录,请单击“插入”菜单,指向“引用”→“索引和目录”,出现“索引和目录”的画面,点击“目录”标签,倘若直接按下“确定”按钮,则会以黑体字提示“错误!未找到目录项”。
目录项即文档中用来显示成为目录内容的一段或一行文本。
因此,要想自动显示目录,必先定义目录项。
目录项的定义很简单,点击“视图”→“大纲”切换至大纲模式,如下图所示,大纲模式下文档各段落的级别显示得清楚,选定文章标题,将之定义为“1级”,接着依次选定需要设置为目录项的文字,将之逐一定义为“2级”。
当然,若有必要,可继续定义“3级”目录项。
定义完毕,点击“视图”→“页面”回至页面模式,将光标插入文档中欲创建目录处,再次执行“插入”→“引用”→“索引和目录”,出现“索引和目录”画面,点击“目录”标签 上面一共只定义了二个级别的目录项,因此将上图“显示级别”中的数字改为“2”。
“显示页码”与“页码右对齐”这二项推荐选择,前者的作用是自动显示目录项所在的页面,后者的作用是为了显示美观。
“制表符前导符”即目录项与右对齐的页码之间区域的显示符号,可下拉选择;此外,有多种目录显示格式可供选择,下拉“格式”就可以看到了。
最后点“确定”,如图所示,目录就这样生成了,包括页码都自动显示出来了。
按住Ctrl键,点击某目录项,当前页面自动跳转至该目录项所在的页码
转载请注明出处51数据库 » .net word addin 菜单