Question

基本上我有一个表单，我想根据一些布尔语句的结果自动填充。例如“如果真的那么检查celcius radiobutton”

到目前为止我所拥有的是以下内容

Public Class Unitsofmeasureform Dim oForm作为测量单位
Public Sub Load_Units_Form()

    'Dim ws As Object
    'ws = Application.activesheet()

    Dim xlApp
    xlApp = Application
    Dim temp_units As String



    If IsNothing(oForm) OrElse oForm.IsDisposed Then
        oForm = New Unitsofmeasureform()
    End If
    oForm.Show()


    temp_units = Application.Sheets("units sheet").Range("D1").value
    If temp_units = "°C" Then

        Application.Sheets("sheet1").range("A1") = 1
        Me.celcius.Checked = True
    Else
        Application.Sheets("sheet1").range("A1") = 2
        Me.fahrenheit.Checked = True
    End If

End Sub

我正在使用一个名为ExcelDNA的程序将这个VB.net表单集成到excel中，并且我已经包含了范围信息以确保if语句有效。然而，当表单重新加载带有标签的radiobutton时，没有检查celcius。当我在没有“我”的情况下重复代码时，也不会检查它。

找到了我自己的解决方案

更改

Me.celcius.Checked = True

到

oForm.celcius.Checked = True

然后这个工作

VB.net表单radiobutton autopopulate

0 个答案: