VB。将子公司净投入形式ev

dbroada · 发表于 2022-7-6 22:22:28

标题太长了。我希望这是一个简单的问题，我只是忽略了显而易见的。然而，继续我的其他帖子，你知道我在VB中艰难前行。Net的帮助下，杰瑞温特斯的书。就目前而言，一切都很好。。。。

我正试图重写我们的VBA例程，但虽然我已经准备好了大部分组件，但我不知道如何将它们粘在一起。

常规。。。。
我有一个带有组合框、列表、标签和命令按钮的表单。
组合框显示图层列表。
该列表列出了选定图层上的所有文字图元。
标签显示选定图层上的文字图元数。
该按钮将列表导出到文本文件。
（文本文件提供给我们的面板生成器，用于创建热缩导线末端标记。）

组合框填充很容易。
我没有对列表总体进行排序，但使用当前用于标签计数的选择集应该不会有问题（昨天的问题-现在已排序）。

我想要的是，当组合框更改时，我的列表和标签会更新。然而，选择集在我的类定义中，组合框更改在form类中。我看不到从组合框更改的事件传递到类中的子事件的方法。如果我将选择集子对象放入form类中，它不喜欢调用编辑器。

我错过了什么？

BlackBox · 发表于 2022-7-6 22:31:45

我相信这就是你想要的，戴夫：

copy


Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       ComboBox1.SelectedIndex = 0
   End Sub
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       Dim comboBox As ComboBox = CType(sender, ComboBox)
       Label1.Text = CType(comboBox.SelectedItem, String)
   End Sub
End Class

BlackBox · 发表于 2022-7-6 22:37:01

很难说，尤其是没有代码。。。你能发一个片段吗？听起来您好像遇到了权限问题，但同样，不确定您在非表单类中尝试做什么。需要更多信息。

dbroada · 发表于 2022-7-6 22:39:22

谢谢BB。再一次，我将不得不离开这一段时间，因为真正的工作和半天的休息将阻止我看它。我会尝试和张贴代码后，它已经整理好。今天需要进行一些剪切和粘贴，需要恢复。

BlackBox · 发表于 2022-7-6 22:49:07

一如既往，欢迎你；我很乐意帮助。。。至于切割+粘贴，“手术”总是很痛苦，现在比以后好。

享受你的半天。

dbroada · 发表于 2022-7-6 22:50:09

这并没有像预期的那么长时间。（仍然没有看你的thoguh）。

我的代码。。。
该位加载带有层名称的组合框，并显示Form1

copy


[size=2][color=#0000ff][size=2][color=#0000ff]Public[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub[/color][/size][/color][/size][size=2] ExportFerrules()[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] i [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Integer[/color][/size][/color][/size][size=2] = 1[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myForm [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] Form1[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myDB [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] Database = HostApplicationServices.WorkingDatabase[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Using[/color][/size][/color][/size][size=2] myTrans [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] Transaction = myDB.TransactionManager.StartTransaction[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myLT [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] LayerTable = myDB.LayerTableId.GetObject(OpenMode.ForRead)[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]For[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Each[/color][/size][/color][/size][size=2] myOID [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] ObjectId [/size][size=2][color=#0000ff][size=2][color=#0000ff]In[/color][/size][/color][/size][size=2] myLT[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myLTR [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] LayerTableRecord = myOID.GetObject(OpenMode.ForRead)[/size]
[size=2]myForm.ComboBox1.Items.Add(myLTR.Name)[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]If[/color][/size][/color][/size][size=2] UCase(myLTR.Name) = [/size][size=2][color=#a31515][size=2][color=#a31515]"FERRULES"[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Then[/color][/size][/color][/size][size=2] i = myForm.ComboBox1.Items.Count[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Next[/color][/size]
[/color][/size][size=2]myForm.ComboBox1.SelectedIndex = i - 1[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Using[/color][/size]
[/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] j [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Integer[/color][/size][/color][/size][size=2] = 0[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] LayNm [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]String[/color][/size][/color][/size][size=2] = myForm.ComboBox1.Items(i - 1)[/size]
[size=2][color=#008000][size=2][color=#008000]Call TextOnLayer(j, LayNm)[/color][/size]
[/color][/size][size=2]myForm.Label2.Text = j[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Select[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Case[/color][/size][/color][/size][size=2] Application.ShowModalDialog(myForm)[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Case[/color][/size][/color][/size][size=2] System.Windows.Forms.DialogResult.OK[/size]
[size=2]MsgBox([/size][size=2][color=#a31515][size=2][color=#a31515]"Hello"[/color][/size][/color][/size][size=2])[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Case[/color][/size][/color][/size][size=2] System.Windows.Forms.DialogResult.Cancel[/size]
[size=2]MsgBox([/size][size=2][color=#a31515][size=2][color=#a31515]"Do Nothing."[/color][/size][/color][/size][size=2])[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Select[/color][/size]
[/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub[/color][/size]
[/color][/size]

该位统计由组合框指定的层上的文本对象数。

copy


[size=2][color=#0000ff][size=2][color=#0000ff]Public[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub[/color][/size][/color][/size][size=2] TextOnLayer([/size][size=2][color=#0000ff][size=2][color=#0000ff]ByRef[/color][/size][/color][/size][size=2] j, [/size][size=2][color=#0000ff][size=2][color=#0000ff]ByRef[/color][/size][/color][/size][size=2] LayNm)[/size]
[size=2][color=#008000][size=2][color=#008000]'Add bit about counting text on layer[/color][/size]
[/color][/size][size=2][color=#008000][size=2][color=#008000]'This has gone back in to the load stage for now.[/color][/size]
[/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myEd [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] Editor = DocumentManager.MdiActiveDocument.Editor[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myTVs(3) [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] TypedValue[/size]
[size=2]myTVs.SetValue([/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] TypedValue(DxfCode.Operator, [/size][size=2][color=#a31515][size=2][color=#a31515]"<AND"[/color][/size][/color][/size][size=2]), 0)[/size]
[size=2]myTVs.SetValue([/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] TypedValue(DxfCode.Start, [/size][size=2][color=#a31515][size=2][color=#a31515]"TEXT"[/color][/size][/color][/size][size=2]), 1)[/size]
[size=2]myTVs.SetValue([/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] TypedValue(DxfCode.LayerName, LayNm), 2)[/size]
[size=2]myTVs.SetValue([/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] TypedValue(DxfCode.Operator, [/size][size=2][color=#a31515][size=2][color=#a31515]"AND>"[/color][/size][/color][/size][size=2]), 3)[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myFilter [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] SelectionFilter(myTVs)[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] myPSR [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] PromptSelectionResult = myEd.SelectAll(myFilter)[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]If[/color][/size][/color][/size][size=2] myPSR.Status = PromptStatus.OK [/size][size=2][color=#0000ff][size=2][color=#0000ff]Then[/color][/size]
[/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] mySS [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] SelectionSet = myPSR.Value[/size]
[size=2]j = mySS.Count[/size]
[size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]If[/color][/size]
[/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub[/color][/size]
[size=2][color=#0000ff]End[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Class[/color][/size]
[/color][/size]

这个位告诉你组合框有一个新的选定层

copy

[size=2]
[/size][size=2][color=#0000ff][size=2][color=#0000ff]Private[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub[/color][/size][/color][/size][size=2] ComboBox1_SelectedIndexChanged([/size][size=2][color=#0000ff][size=2][color=#0000ff]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff][size=2][color=#0000ff]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff][size=2][color=#0000ff]Handles[/color][/size][/color][/size][size=2] ComboBox1.SelectedIndexChanged
MsgBox(ComboBox1.SelectedItem)
[/size][size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub
[/color][/size][/color][/size]

我希望能够从组合框“IndexChanged”代码中调用“TextOnLayer”sub，但它们似乎是互斥的。

dbroada · 发表于 2022-7-6 22:59:10

我可以让它做我想做的事

但只需要从类中复制所有导入。vb模块转换为Form1。vb模块。这肯定不是正确的方式吗？

BlackBox · 发表于 2022-7-6 23:03:35

据我所知，项目/解决方案中的每个类文件（即vb、cs等）都需要依赖导入（在C#中使用）语句，以便在不限定命名空间的情况下引用类型名。

dbroada · 发表于 2022-7-6 23:08:47

谢谢，我觉得可能很简单。只是看起来不对。

BlackBox · 发表于 2022-7-6 23:15:26

可能但是，当你编写的代码比“hello world”多时，它（使用Imports语句）确实节省了大量的输入。

将其与进行比较：

[code]。AutoCAD。伪代码。SampleWithImports公共类命令_PublicSub SampleWithImports（）Dim doc As[color=“blue”]Document=[color=“blue”]应用程序。DocumentManager。MdiActiveDocument变暗为[color=“blue”]编辑器=文档。编辑ed.WriteMessage（vbLf和“**领结很酷**”和vbLf）结束子[颜色=“绿色”]“”

[编程交流] VB。将子公司净投入形式ev

发表回复

精选推荐