اسدمختار
زيزوومى فعال
غير متصل
قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
Module Module1
Sub Main()
Dim name As String
Dim age As Integer
Console.WriteLine("what's your name ?")
name = Console.ReadLine
Console.WriteLine("Hello " & name & " how old are you?")
age = Console.ReadLine
Console.WriteLine("You are " & age & " years old")
Console.Read()
End Sub
End Module
imports system.runtime.interopservices
<structlayout(layoutkind.sequential)> _
public structure margins
public cxleftwidth as integer
public cxrightwidth as integer
public cytopheight as integer
public cybottomheight as integer
end structure
public class form1
<dllimport("dwmapi.dll")> _
public shared function dwmextendframeintoclientarea(byval hwnd as intptr, byref pmarinset as margins) as integer
end function
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
on error resume next
dim margins as margins = new margins
margins.cxleftwidth = -1
margins.cxrightwidth = -1
margins.cytopheight = -1
margins.cybottomheight = -1
dim hwnd as intptr = me.handle
dim result as integer = dwmextendframeintoclientarea(hwnd, margins)
end sub
end class
يعطيـــــــــــــــــــــــــــــــك العافية ياغالي على شرحك المتميز ..
واصل ياغالي قد ما تستطيع كلنا معك يدا واحدة..
وحتى لو رأيت هناك مزيد من العطا بعد انقطاع او شي لا يهمك ممكن فتح مواضيع أخرى ومواصلة لمواضيعك .