幫我看看為什麼報錯

Question

private sub ddd(Viform as Form)MSGBOX "DDD"
END sub

Answer 1

sub main()
 
ddd Form1 'Form1 is a new Form
end sub 

Answer 2

But I must use the iForm.cls

Answer 3

你写的太笼统了，你把调用ddd的函数代码写出来啊

Answer 4

ddd 调用的代码是
sub main()
 ddd Form1
end sub

Answer 5

我怎样才能把我手上的代码给你们看..是一个完整的程式..我想借见这个老外写的程式对控件的用法,希望大家帮我看看..有些对com+的操作不是很明白

Answer 6

Public Sub ddd(Viform As iForm)   ' 改为：Public
MsgBox "DDD"
End Sub
' 呼叫方法
Dim iForm1 As New iFormiForm1.ddd iForm1

Answer 7

http://www.codeclub.net/bbs/bbs/dispbbs.asp?boardID=3&ID=772
 这个是我把老外写的程式放在这里,希望大家先看看
 对于写一个interface class 大家有没有什么这方面的参考.
我看了这个程式后才知道,定义好一个iForm 
Option ExplicitPublic Enum ToolBarItems
    tbExec = 2
    
    tbAddNew = 4
    tbModify = 8
    tbDelete = 32
    tbQuery = 64
    tbPrint = 128
    tbRefresh = 256    tbSave = 512
    tbCancel = 1024    tbExit = 2048    tbDeleteRow = 4096End EnumPublic Sub Exec()
  
End SubPublic Sub MainMenu()
    
End SubPublic Sub DeleteRow()
    
End Sub
Public Function OpenDB() As Boolean
    
End FunctionPublic Sub HelpAbout()
    
End SubPublic Function Save() As Boolean
    
End FunctionPublic Sub delete()End SubPublic Sub PrintOut()End SubPublic Sub AddNew()End SubPublic Sub Cancel()End SubPublic Sub Refresh()End SubPublic Sub Find(ByVal Key As String)End SubPublic Sub CloseMe()End SubPublic Sub ShowFormView()
    
End SubPublic Property Get Attributes() As ToolBarItemsEnd PropertyPublic Property Get EnableAttributes() As ToolBarItemsEnd Property
以后.在Form里面去引用他.要先 在option explicit 写入 implements iForm
比如.我建立一个Form1 
Option Explicit
Implements iForm
Private m_EnableAttr As ToolBarItemsPrivate Sub Form_Load()
   m_Toolbar.Attach Me, Name
   LoadRecords
End Sub
 
Private Sub Form_Resize()
 m_Toolbar.Attach Me, Name
End SubPrivate Sub Form_Unload(Cancel As Integer)
  m_Toolbar.Detach Name
End Sub Private Sub iForm_AddNew()
     MSFlexGrid1.AddItem ""
     MSHFlexGrid1.AddItem ""
 End SubPrivate Sub iForm_MainMenu()
    mtMenus.Visible = Not mtMenus.Visible
End SubPrivate Sub iForm_CloseMe()
   Unload Me
End SubPrivate Property Get iForm_Attributes() As ToolBarItems
    m_EnableAttr = tbAddNew + tbDelete + tbExit + tbSave + tbCancel + tbRefresh + tbModify
    
    iForm_Attributes = m_EnableAttr
End Property
Private Sub iForm_delete()
    'n.a
End Sub
Private Sub iForm_Find(ByVal Key As String)
    'n.a
End SubPrivate Property Get iForm_EnableAttributes() As ToolBarItems
    iForm_EnableAttributes = m_EnableAttr
End Property
Private Sub iForm_DeleteRow()
    'n/a
End Sub
 
Private Function iForm_OpenDB() As Boolean
    'n/a
End Function
Private Sub iForm_Exec()
    
End Sub
Private Sub iForm_PrintOut()
    'n/a
End SubPrivate Sub iForm_Refresh()
    'n.a
End Sub
Private Sub iForm_HelpAbout()
    mnuHelpAbout_Click
End SubPrivate Function iForm_Save() As Boolean
    'n.a
End FunctionPrivate Sub iForm_ShowFormView()
    'n.a
End Sub
Private Sub iForm_Cancel()
    'n.a
End Sub里面有sub iForm_ 开头的..这些都是在iForm class 里面定义的 method
 (不知道是不是应该叫method .) 这个是我在这个程式里面目前学到的一点
我想跟大家讨论一下关于他对datagrid的操作..他在修改grid里面的数据以后
会有个变量 来标示这个栏问是否被修改.他用变量来做.我不是很理解.希望指教

Answer 8

達大家对com 编程是否了解.. 这个程式里面用到这方面的.可是我对这个没有一点资料..可否提供网上资源.比较好的说明