如何将flowlayoutpanel中的所有按钮放到数组中?

时间:2015-06-29 18:00:06

标签: arrays vb.net button flowlayoutpanel

我在vb.net中有一个代码来选择flowlayoutpanel中表单中的所有按钮,但它返回零。

我认为问题在于flowlayoutpanel。

Dim alphabetButtons() As Button
alphabetButtons = Me.Controls.OfType(Of Button).Except(New Button() {Button1}).ToArray

你能告诉我我做错了什么吗?

1 个答案:

答案 0 :(得分:1)

  

我在vb.net中有一个代码来选择 flowlayoutpanel 中表单中的所有按钮,但它返回零。 ......你能告诉我我做错了什么吗?

是。您告诉表单返回所有类型按钮控件:

predictor_1 <- runif(100, 0, 1)
predictor_2 <- runif(100, 0, 1)
DV <- runif(100, 0, 1)
subjects <- rep(letters[1:5], 20)
items <- rep(1:10, 10)
data <- data.frame(DV, subjects, items, predictor_1, predictor_2)

model <- lmList(DV ~ predictor_1 + predictor_2 | subjects, data)
model_summary <- summary(model)

model_coef <- coef(model)
f <- model_summary$fstatistic[ , 1]
r2 <- model_summary$r.squared
output <- data.frame(model_coef, f, r2)
names(output) <- c("Intercept", "Predictor 1", "Predictor 2", "F Ratio", "R Squared")
output

你需要问 FlowLayoutPanel 这个问题。

Dim alphabetButtons() As Button alphabetButtons = Me.Controls.OfType(Of Button).Except(New Button() {Button1}).ToArray 更改为FlowLayoutPanel的名称,例如&#34; fixed&#34;中的Me。代码如下:

FlowLayoutPanel1

Dim alphabetButtons() As Button alphabetButtons = FlowLayoutPanel1.Controls.OfType(Of Button).Except(New Button() {Button1}).ToArray 集合仅返回该容器包含的直接控件。每个容器都有自己的子控件集合......