首页 > 其他分享 >vba-窗体间传值

vba-窗体间传值

时间:2022-12-07 21:35:35浏览次数:39  
标签:Me vba UserForm End Sub Private 窗体 xp 传值

1,模块加

Public xOBj As New MSForms.DataObject

2,第一个窗体

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value = "" Then Exit Sub
    With xOBj
        .SetText Me.TextBox1.Value, 1
    End With
    Unload Me
    UserForm2.Show
End Sub


Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
    Dim xStr As String, xp As String
    xp = VBA.vbCrLf
    xStr = xStr & "《咏柳》" & xp _
        & "贺知章" & xp _
        & "碧玉妆成一树高," & xp _
        & "万条垂下绿丝绦。" & xp _
        & "不知细叶谁裁出," & xp _
        & "二月春风似剪刀。"
    Me.TextBox1.Value = xStr
End Sub

3,第二个窗体

Private Sub UserForm_Activate()
Me.Label1.Caption = xOBj.GetText(1)
End Sub
 
Private Sub UserForm_Initialize()
    Me.Label1.Caption = xOBj.GetText(1)
End Sub

 

标签:Me,vba,UserForm,End,Sub,Private,窗体,xp,传值
From: https://www.cnblogs.com/Insist-Y/p/16964595.html

相关文章

  • vba-命名规范
    给用户窗体和控件起一个具有描述性且分类清楚的名字,是一个习惯。最好在每类控件名前加一个前缀来代表该控件的类型,例如,frm代表用户窗体,opt代表选项按钮,等等。这样,将会使代......
  • VBA学习笔记3-数据结构类型SortedList
    https://blog.csdn.net/lyfegf/article/details/103750912?spm=1001.2101.3001.6650.6&utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7ECTRLIST%7ERate-......
  • VBA-语法-Type结构体
    VBA中结构体不能定义在函数或者过程中,要定义在模块中,否则会提示无效内部过程,或者类型未定义定义:TypePersonpNameAsStringpAgeAsByteEndType使用:Di......
  • vue父子组件的传值总结
    情况一:父组件给子组件传值方法,使用props父页面:parent.vue<template><divclass="sidebar_contianer"><sidebar-item:routerData="transmitData"></sideb......
  • vba-类持续更新
    一,用途让代码可读性更强调用excel对象的一些事件,如程序级事件,内嵌图表事件,菜单命令事件(后续会学)等封装API,让代码更简捷易懂(后续会学)创建控件数组团队协作时,编写完整......
  • vba-函数返回sheet
    '打开文件返回SheetPublicFunctionGetSheetByOpenFile()AsWorksheetifilename=Application.GetOpenFilename("Excel(*.xlsx),*.xlsx,Excel(*.xls),*.xls",Fa......
  • 关于jsp页面之间传值的中文乱码总结
    关于jsp页面之间传值的中文乱码总结最近在各位大哥的帮助下,终于解决了jsp页面之间的传值问题,总结如下:源代码,a.jsp往b.jsp传值:a.jsp页面内容:<%@pagelanguag......
  • vba-传递listbox作为参数
    '反选PrivateSubCommandButton1_Click()CallTestss(Me!TIListBox)EndSubPrivateFunctionTestss(ByReflbAsObject)Iflb.ListCount<1ThenMsgBox......
  • vba-ArrayList
    TIListBox.MultiSelect=1TIListBox.ListStyle=1TIListBox.ColumnWidths=62TIListBox.ColumnCount=1Dimarr,brrC_Controlarr,b......
  • 整理记录一下DevExpress中更换Form窗体皮肤的操作过程
    俗话说得好:”好记心不如烂笔杆儿“,这不,前些时间突然心血来潮,想用C#来写写软件,其实我的计算机中老早就装上了DevExpress的开发环境了,可是一直跟自己找借口,没有动手写过一个......