|
A já jsem pouhopouhý blbec. Něco dělám špatně a asi to nebude pro mě. Vytvořil jsem si jen tak cvičně knihovnu na výpočet obvodů objektů:
public class obvody1
Public Sub ObvodTroj(ByVal a, ByVal b, ByVal c)
MsgBox("Obvod trojúhelníku - " & a + b + c)
End Sub
Public Sub ObvodCtverec(ByVal a)
MsgBox("Obvod čtverce - " & 4 * a)
End Sub
Public Sub ObvodObdelnik(ByVal a, ByVal b)
MsgBox("Obvod obdelníku - " & 2 * (a + b))
End Sub
Public Sub ObvodKruhu(ByVal r)
MsgBox("Obvod kruhu - " & 2 * 3, 14 * r)
End Sub
End Class
Něco, na čem bych to mohl odzkoušet. Pak jsem založil nový project, zkopíroval váš příklad, upravil hodnoty, ale nic:
Imports ClassLibrary1 'pro lepší manipulaci naimportujeme knihovnu
Public Class Form1
Private Sub Form1_Load() Handles Me.Load 'když se form načte,
Dim instance As New ClassLibrary1.obvody 'vytvoříme si instanci nějaké třídy z knihovny a
instance.ObvodObdelnik(4, 5)
'pak jen vyvoláváme její metody a funkce,
instance.ObvodKruhu(10) 'konstanty a další...
End Sub
End Class
1) I když se moje knihovna jmenuje obvody.dll tak se mi při imports nezobrazuje a stále mi to nabízí knihovnu "ClassLibrary1", obě knihovny obsahují to samé, obvody.dll jsem přepsal název až v editoru. Dále při Handles Me.Load se mi podtrhuje Load, nevím co s tím. Prosím o radu, co dělám zle. Jestli je tady ještě nějaká pomoc. Díky
|