Страница: 1 |
|
Вопрос: Создание dll
|
Добавлено: 17.03.04 19:47
|
|
Автор вопроса: beast81 | ICQ: 192324197
|
Подскажите пожалуйста. Я написал свою dll. Я ее помещаю на форму присваиваю значение. Но при загрузке формы она не работает(т.е. не показывает данные). Как мне правильно вызвать процедуру в dll ? Imports System.ComponentModelPublic Class DGridInherits System.Windows.Forms.PanelPublic DataSource As DataTablePublic Property dt() As DataTableGetReturn DataSourceEnd GetSet(ByVal Value As DataTable)DataSource = Value End SetEnd Property # Region " Windows Form Designer generated code "Public Sub New()MyBase.New()'This call is required by the Windows Form Designer.'Add any initialization after the InitializeComponent() callEnd Sub'UserControl1 overrides dispose to clean up the component list.Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)If disposing ThenIf Not (components Is Nothing) Thencomponents.Dispose() End IfEnd IfMyBase.Dispose(disposing)End Sub'Required by the Windows Form DesignerPrivate components As System.ComponentModel.IContainer'NOTE: The following procedure is required by the Windows Form Designer'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor.<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()''DGrid'Me.Name = "DGrid"End Sub# End RegionPublic Sub CreateGrid(ByVal Dt As DataTable)'If DataSource.TableName = "" Then Exit SubDim Pan As New Panel()Dim R, C As IntegerR = Dt.Rows.Count - 1 C = Dt.Columns.Count - 1 Dim RTB(R, C) As RichTextBoxDim i, j As IntegerMyBase.AutoScroll = TrueFor i = 0 To RFor j = 0 To CRTB(i, j) = New RichTextBox()RTB(i, j).Text = Convert.ToString(Dt.Rows(i).Item(j)) RTB(i, j).BorderStyle = BorderStyle.FixedSingle RTB(i, j).Size = New<
Ответить
|
Страница: 1 |
Поиск по форуму