منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مساعدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة (/showthread.php?tid=50555)

مساعدة - bahnay0 - 28-10-24

عندي موقع على الويب لإدخال بيانات العاملين وقد قمت باستعمال الفيجوال بيسك وCefSharp لإدخال البيانات باستخدام أدوات Panel  لعرض الموقع بداخله و داتاجريدفيو لوضع البيانات به 
وعند الضغط على اي صف داخل الداتاجريدفيو يقوم بعرض البيانات داخل الموقع والكود يعمل معي تمام ويقوم بملء الخانات داخل الموقع
ولكن المشكلة أني عندما أقوم بالحفظ على الموقع لا يشعر بالبيانات التي قمت بادخالها ويطلب ملء الحقول
الكود الذي استعمله :
كود :
browser1.ExecuteScriptAsync("document.querySelector('input[formcontrolname=empFatherNameControl]').value='" & DataGridView1.SelectedRows(0).Cells(5).Value & "'")
الكود البرمجي للموقع :
كود :
<input _ngcontent-vog-c104="" type="text" formcontrolname="empFirstNameControl" class="form-control ng-pristine ng-invalid ng-touched" maxlength="50">
رجاء مساعدتي ولكم جزيل الشكر

RE: مساعدة - aliday03 - 29-10-24

السلام عليكم
سؤالك غير مكتمل الاركان على اي بيئة تشتغل في الفيجوال بيسك و السي شارب هل asp net mvc او asp net core هل تستخدم اشياء اخرى
الفرم الذي انشاته هل بادوات الفيجوال استوديو ام html و css وهكذا
فسر السؤال بطريقة واضحة أو ارفق المثال للتعديل عليه

RE: مساعدة - bahnay0 - 29-10-24

انا شغال فيجوال بيسك دوت نت وحزمة CefSharp
والأدوات اللي مستخدمها :  هي panel لعرض الموقع بداخله وداتاجريدفيو مش أكتر من كده
بحيث لما بضغط على الصف داخل الداتاجريدفيو بيعرض البيانات اللي بداخله داخل خانات الموقع بتاعي
والاكواد دي شغاله وبتعرض البيانات داخل الموقع لكن لما بحفظ الموقع مش بيحس بالبيانات ويطلب تسجيل البيانات
ودا الكود المستعمل كله :
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Threading
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports CefSharp
Imports CefSharp.WinForms
Imports CefSharp.WinForms.ChromiumWebBrowser
Imports CefSharp.WinForms.Internals


Public Class Main
    Public Sub New()
        InitializeComponent()
    End Sub

    Public browser1 As New ChromiumWebBrowser("https://-------------")

    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Panel1.Controls.Clear()
            Panel1.Controls.Add(browser1)
            browser1.Load("https://teacher.emis.gov.eg/login")
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            browser1.ExecuteScriptAsync("document.all('i0116').value='" + TextBox1.Text + "'")
            browser1.ExecuteScriptAsync("document.all('i0118').value='" + TextBox2.Text + "'")
        Catch ex As Exception
        End Try
    End Sub

    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Try
browser1.ExecuteScriptAsync("document.querySelector('input[formcontrolname=nationalIdNumControl]').value='" & DataGridView1.SelectedRows(0).Cells(3).Value & "'")
browser1.ExecuteScriptAsync("document.querySelector('input[formcontrolname=empFirstNameControl]').value='" & DataGridView1.SelectedRows(0).Cells(4).Value & "'")
Catch ex As Exception
        End Try
    End Sub
End Class

RE: مساعدة - bahnay0 - 01-11-24

انا محتاج المساعدة بجد ياجماعه
ممكن حد يساعدني ؟؟؟؟؟