I've followed Steve Land's steps to create a MojoPortal module in C# and, as I don't know C# very well, wanted to try to do the same in VB which I am more familiar with.  I managed to get it all to compile but I can't view a page once I have added the feature to it.  I get this error: 'VBTestProject.UI.VBUserControlModule' is not allowed here because it does not extend class 'System.Web.UI.UserControl' at the point where MojoPortal is trying to load the control.  I am inheriting System.Web.UI.UserControl in my class (I originally tried inheriting SiteModuleControl) the code for the class is below:

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Configuration
Imports System.Globalization
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports mojoPortal.Web
Imports mojoPortal.Web.Framework
Imports mojoPortal.Web.UI
Imports log4net
Imports Resources

Namespace VBTestProject.UI

Partial Public Class VBUserControlModule
Inherits System.Web.UI.UserControl
' FeatureGuid d2d61fef-0503-4ac9-aeff-9e1ff55e6fb1

#Region "OnInit"

Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
MyBase.OnInit(e)
End Sub
#End Region

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

LoadSettings()
PopulateLabels()
PopulateControls()

End Sub

End Class
End Namespace

I'm sure it's something very basic that I've done wrong but I just can't figure it out.  I'd be very grateful for any help/advice.  At the moment I'm thinking it might be better to try to learn C# and go down that route.

Thanks

Hi Joe

Thanks for responding and sorry if this seems a bit dumb.

Yes, the dll is in the Web/bin folder and the ascx is there too (in a subfolder under Web).  I'm now inheriting from SiteModuleControl and have a project reference to mojoportal.web - I think that's what you mean when you say MojoPortal.Web.UI or am I looking in the wrong place.  I have based my solution on your mojoportal_mssql_only.sln so have included the same projects.  I have compared my C# and VB versions of the projects and just can't see what I'm missing. 

Thanks again.

Suzy

I've run into the same problem and I am trying to add a reference to "mojoPortal.Web.SiteModuleControl", but it does not show up in my references so that I can add it. Am I missing something?

Suzy can you post the final example.  I've tried everything to get my VB code to work and just can't.  I've all references, the page compiles fine but I can't get it to display.

ascx page:

<%@ Control Language="VB" AutoEventWireup="false" ClassName="AddAthlete.ascx" CodeBehind="AddAthlete.ascx.vb" Inherits="CoachAlert.UI.AddAthlete,mojoPortal.Web.SiteModuleControl" %>

<%@ Import Namespace="mojoPortal.Business" %>
<%@ Import Namespace="mojoPortal.Business.WebHelpers" %>
<%@ Import Namespace="mojoPortal.Web.Framework" %>
<%@ Import Namespace="mojoPortal.Web.Controls" %>
<%@ Import Namespace="mojoPortal.Web.Editor" %>
<%@ Import Namespace="mojoPortal.Net" %>

<portal:mojoPanel ID="mp1" runat="server" ArtisteerCssClass="art-Post" RenderArtisteerBlockContentDivs="true">
<mp:CornerRounderTop id="ctop1" runat="server" />
<asp:Panel ID="pnlWrapper" runat="server" CssClass="art-Post-inner panelwrapper linksmodule">
<portal:ModuleTitleControl id="Title1" runat="server" />
<portal:mojoPanel ID="MojoPanel1" runat="server" ArtisteerCssClass="art-PostContent">
<asp:Panel ID="pnlCoachAlert" runat="server" EnableViewState="false" CssClass="modulecontent">

Your custom form goes here.
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="Button" />

</asp:Panel>
<div class="modulefooter"></div>
</portal:mojoPanel>
<div class="cleared"></div>
</asp:Panel>
<mp:CornerRounderBottom id="cbottom1" runat="server" />
</portal:mojoPanel>

CodeBehind:

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Configuration
Imports System.Globalization
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports mojoPortal.Web
Imports mojoPortal.Web.Framework
Imports mojoPortal.Web.UI
'Imports log4net
Imports Resources
Imports CoachAlert.UI
'Namespace CoachAlert.UI
Partial Public Class AddAthlete
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Button1.Text = "Howdy"
    End Sub

End Class
'End Namespace

Thanks Joe for the quick response.

I have everything being copied, i.e. all my dlls etc. through post build events and they are all the web folder

xcopy /s /y "$(ProjectDir)bin\CoachAlert.UI.dll" "$(SolutionDir)Web\bin\"
xcopy /s /y "$(ProjectDir)bin\CoachAlert.Business.dll" "$(SolutionDir)Web\bin\"
xcopy /s /y "$(ProjectDir)bin\CoachAlert.Data.dll" "$(SolutionDir)Web\bin\"
xcopy /s /y "$(ProjectDir)AddAthlete\*.ashx" "$(SolutionDir)Web\AddAthlete\"
xcopy /s /y "$(ProjectDir)AddAthlete\*.ascx" "$(SolutionDir)Web\AddAthlete\"
xcopy /s /y "$(ProjectDir)AddAthlete\*.aspx" "$(SolutionDir)Web\AddAthlete\"
xcopy /s /y "$(ProjectDir)App_GlobalResources\*.resx" "$(SolutionDir)Web\App_GlobalResources\"
xcopy /s /y "$(ProjectDir)Setup\*" "$(SolutionDir)Web\Setup"

I even tried the code inline example and that didn't work either.

not sure what to try now.  maybe my setup on my web admin side in mojo portal is wrong, added it in admin and the created a new page where i added my 'feature'

My control source is:  AddAthlete/AddAthlete.ascx

I have a folder in the web folder called addathlete and have the ascx there.  

Joe,

When i get this working its definitely worth  buy a beer!

i changed to Inherits mojoPortal.Web.SiteModuleControl

but it said not defined so i changed to global.Inherits mojoPortal.Web.SiteModuleControl

but i think that may be telling me im missing something.  I changed to global but still a blank page.

once I fix the inherit, hopefully it will work, but wondering if something is wrong with the projects web.config or master page?  the web.ocnfig has the pages in it.  master page was from the store.ui.

Joe,

I had that reference already set.

Type mojoportal.web.sitemodulecontrol not defined.

Thanks for your help on this.  Once I get it going ill be able to start on my project and be able to create more modules.

Just as I saw your post I was compiling without the inline <%@ items :)

If I put the name space back in, I notice my reference to any labels or text boxes has this error: button 1 is not declared it may be inaccessible due to its protection level

I have imports mojoportal.web in my imports.

i blew everything out and recrecerted, still have to use global.mojoportal for the inherit and can't see the controls on the ascx page.  I think we are up to 2 beers by now.!

ascx

<%@ Control Language="VB" AutoEventWireup="false" CodeBehind="AddAthlete.ascx.vb" Inherits="CoachAlert.UI.AddAthlete" %>

<portal:mojoPanel ID="mp1" runat="server" ArtisteerCssClass="art-Post" RenderArtisteerBlockContentDivs="true">
<mp:CornerRounderTop id="ctop1" runat="server" />
<asp:Panel ID="pnlWrapper" runat="server" CssClass="art-Post-inner panelwrapper linksmodule">
<portal:ModuleTitleControl id="Title1" runat="server" />
<portal:mojoPanel ID="MojoPanel1" runat="server" ArtisteerCssClass="art-PostContent">
<asp:Panel ID="pnlCoachAlert" runat="server" EnableViewState="false" CssClass="modulecontent">

Your custom form goes here.
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="Button" />

</asp:Panel>
<div class="modulefooter"></div>
</portal:mojoPanel>
<div class="cleared"></div>
</asp:Panel>
<mp:CornerRounderBottom id="cbottom1" runat="server" />
</portal:mojoPanel>
 

codebehind

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Configuration
Imports System.Globalization
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports mojoPortal.Web
Imports mojoPortal.Web.Framework
Imports mojoPortal.Web.UI
'Imports log4net
Imports Resources
Imports CoachAlert.UI

Namespace CoachAlert.UI

    Partial Public Class AddAthlete
        Inherits Global.mojoPortal.Web.SiteModuleControl
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
            Dim button1 As New Button
            button1 = Me.FindControl("button1")
            button1.Text = "Howdy"
        End Sub

    End Class
End Namespace

designer file

'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On

Partial Public Class AddAthlete

'''<summary>
'''mp1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents mp1 As Global.mojoPortal.Web.UI.mojoPanel

'''<summary>
'''ctop1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents ctop1 As Global.mojoPortal.Web.Controls.CornerRounderTop

'''<summary>
'''pnlWrapper control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents pnlWrapper As Global.System.Web.UI.WebControls.Panel

'''<summary>
'''Title1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents Title1 As Global.mojoPortal.Web.UI.ModuleTitleControl

'''<summary>
'''MojoPanel1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents MojoPanel1 As Global.mojoPortal.Web.UI.mojoPanel

'''<summary>
'''pnlCoachAlert control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents pnlCoachAlert As Global.System.Web.UI.WebControls.Panel

'''<summary>
'''TextBox1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents TextBox1 As Global.System.Web.UI.WebControls.TextBox

'''<summary>
'''Button1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents Button1 As Global.System.Web.UI.WebControls.Button

'''<summary>
'''cbottom1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents cbottom1 As Global.mojoPortal.Web.Controls.CornerRounderBottom
End Class
 

still a blank page.

See email I sent you.  Not sure where to go now.