當我執行的時候他就會說型態不符。
Dim cpu As String
Dim mb As String
Dim ram As String
Private Sub Command1_Click()
txthd.Text = "建議配置:" & vbCrLf & vbCrLf & cpu & vbCrLf & mb & ram
DoEvents
End Sub
Private Sub opntyp_Click(Index As Integer)
cpu = opntyp(Index).Caption
mb = opntyp(Index).Caption
ram = opntyp(Index).Caption
If Index = 0 Then
cpu = "處理器:500MHz" & mb = "主機板:p4pe" & ram = "記憶體:128MB"
ElseIf Index = 1 Then
cpu = "處理器:1000MHz" & mb = "主機板:p4p800" & ram = "記憶體:512MB"
ElseIf Index = 2 Then
cpu = "處理器:2000MHz" & mb = "主機板:p4px" & ram = "記憶體:768MB"
Else
cpu = "處理器:3000MHz" & mb = "主機板:p4c800" & ram = "記憶體:1024MB"
End If
End Sub
Dim cpu As String
Dim mb As String
Dim ram As String
Private Sub Command1_Click()
txthd.Text = "建議配置:" & vbCrLf & vbCrLf & cpu & vbCrLf & mb & ram
DoEvents
End Sub
Private Sub opntyp_Click(Index As Integer)
cpu = opntyp(Index).Caption
mb = opntyp(Index).Caption
ram = opntyp(Index).Caption
If Index = 0 Then
cpu = "處理器:500MHz" & mb = "主機板:p4pe" & ram = "記憶體:128MB"
ElseIf Index = 1 Then
cpu = "處理器:1000MHz" & mb = "主機板:p4p800" & ram = "記憶體:512MB"
ElseIf Index = 2 Then
cpu = "處理器:2000MHz" & mb = "主機板:p4px" & ram = "記憶體:768MB"
Else
cpu = "處理器:3000MHz" & mb = "主機板:p4c800" & ram = "記憶體:1024MB"
End If
End Sub
文章標籤
全站熱搜

"處理器:500MHz" & mb = "主機板:p4pe" & ram = "記憶體:128MB" 看不懂在寫什麼耶 你是想寫 "處理器:500MHz" & mb & "主機板:p4pe" & ram & "記憶體:128MB" ^ ^ 這樣嗎??
如果這樣改的話就變了一整行顯示的了,我想在textbox中第一行是處理器,之後下一行才顯示主機板,再下一行就是記憶體這樣的。
& vbcrlf
Dim cpu As String Dim mb As String Dim ram As String Private Sub Command1_Click() txthd.Text = "建議配置:" & vbCrLf & vbCrLf & cpu & vbCrLf & mb & vbCrlf & ram DoEvents End Sub Private Sub opntyp_Click(Index As Integer) cpu = opntyp(Index).Caption mb = opntyp(Index).Caption ram = opntyp(Index).Caption If Index = 0 Then cpu = "處理器:500MHz" : mb = "主機板:p4pe" : ram = "記憶體:128MB" ElseIf Index = 1 Then cpu = "處理器:1000MHz" : mb = "主機板:p4p800" : ram = "記憶體:512MB" ElseIf Index = 2 Then cpu = "處理器:2000MHz" : mb = "主機板:p4px" : ram = "記憶體:768MB" Else cpu = "處理器:3000MHz" : mb = "主機板:p4c800" : ram = "記憶體:1024MB" End If End Sub 改成這樣試試看吧