مشروعي محتاج نصايحكم وخبرتكم

[ماهر عبدالكريم]

بسم الله
لتفعيل الاداة License يرجى اتباع الاتي
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using ESRI.ArcGIS.esriSystem;


namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
IAoInitialize m_aoInit;

public Form1()
{
InitializeComponent();
m_aoInit = new AoInitializeClass();
if( m_aoInit.IsProductCodeAvailable(esriLicenseProduct Code.esriLicenseProductCodeArcView) == esriLicenseStatus.esriLicenseAvailable){
if ( m_aoInit.Initialize(esriLicenseProductCode.esriLic enseProductCodeArcView) != esriLicenseStatus.esriLicenseCheckedOut ){
MessageBox .Show ("Problem with the ArcGIS license. This application cannot run!");
this.Close();
return ;
}
} else {
MessageBox .Show ("You need an ArcGIS product installed to run this application!");
this.Close();
return ;
}


}

private void Form1_Load(object sender, EventArgs e)
{

}
}
}
او الرجوع ل
http://www.gisclub.net/vb/showthread.php?t=6583

ماهر عبدالكريم

[أحمد الأحمدي]

او الرجوع ل
http://www.gisclub.net/vb/showthread.php?t=6583

ماهر عبدالكريم[/QUOTE]


أشكرك أخ ماهر على الرد

اتذكر الموضوع واعطيتني كود بلغة سي شارب وبعدها كود بالفيجول بيسك

والمشروع مبني حالياً بلغة الفيجول بيسك حتى يتم الأنتهاء منه وبعدها حيتم تحويله إلى سي شارب عن طريق برامج او موقع يحول من لغه إلى لغه.

وهذا الكود اللي كتبته اخ ماهر

بسم الله
هذا كود VB

Imports ESRI.ArcGIS.esriSystem


Public Class Form1
Private m_aoInit As IAoInitialize
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub

Public Sub New()

' This call is required by the Windows Form Designer.
InitializeComponent()
m_aoInit = New AoInitialize

If m_aoInit Is Nothing Then
MsgBox("Unable to initialize. This application cannot run!")
Me.Close()
Exit Sub
End If

If m_aoInit.IsProductCodeAvailable(esriLicenseProduct Code.esriLicenseProductCodeArcView) = esriLicenseStatus.esriLicenseAvailable Then
If m_aoInit.Initialize(esriLicenseProductCode.esriLic enseProductCodeArcView) <> esriLicenseStatus.esriLicenseCheckedOut Then
MsgBox("Problem with the ArcGIS license. This application cannot run!")
Me.Close()
Exit Sub
End If
Else
MsgBox("You need an ArcGIS product installed to run this application!")
Me.Close()
Exit Sub
End If
' Add any initialization after the InitializeComponent() call.

End Sub
End Class 

وهل هذا الكود يسمح بعمل الفورم داخل برنامج Microsoft Visual Studio 2008 لغة فيجول بيسك بدون ما تظهر مشكلة طلب التصريح




وبالنهايه اشكرك اخ ماهر وانتظر ردك
ومنتظر ايضاً من الجميع رأيهم ونصايحهم

وشكراً