_WORD = New Microsoft.Office.Interop.Word.Application
_Doc = _WORD.Documents.Open(OpenFileDialog1.FileName)
If _Doc IsNot Nothing Then
Dim rng As Microsoft.Office.Interop.Word.Range = _Doc.Range()
'............
Dim pages As Integer = rng.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages)
Dim list As New System.Collections.Generic.Dictionary(Of Integer, Integer())
Dim what = Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage Dim which = Microsoft.Office.Interop.Word.WdGoToDirection.wdGoToAbsolute Dim nRange As Microsoft.Office.Interop.Word.Range Dim last As Integer = rng.End
Dim oncekiSon As Integer = 0
For i = 2 To pages
nRange = rng.GoTo(what, which, i)
list.Add(i - 1, New Integer() {oncekiSon, nRange.End})
oncekiSon = nRange.End
Next
If list.Count > 0 Then
list.Add(list.Keys.Last + 1, New Integer() {oncekiSon, last})
End If
For Each key As Integer In list.Keys
rng.SetRange(list(key)(0), list(key)(1))
Dim data As String = rng.Text 'key nolu sayfanın içeriği
Next
_WORD.Quit(SaveChanges:=Microsoft.Office.Interop.Word.WdSaveOptions.wdDoNotSaveChanges) System.Runtime.InteropServices.Marshal.ReleaseComObject(_WORD) System.Runtime.InteropServices.Marshal.ReleaseComObject(_Doc) _WORD = Nothing _Doc = Nothing
Declare @T TABLE(name varchar(1000),
[rows] varchar(100),
[reserved] varchar(100),
[data] varchar(100),
[index_size] varchar(100),
[unused] varchar(100))
DECLARE P1 CURSOR FOR
SELECT NAME FROM SYS.OBJECTS WHERE TYPE='U'
OPEN P1
DECLARE @N AS VARCHAR(100)
FETCH NEXT FROM P1
INTO @N
WHILE @@FETCH_STATUS=0
BEGIN
INSERT INTO @T
exec sp_spaceused @N
-------------------
FETCH NEXT FROM P1
INTO @N
END
CLOSE P1
DEALLOCATE P1
SELECT * FROM @T ORDER BY name ASC
Public Class MainPage
Inherits UserControl
private jQuery as System.Windows.Browser.ScriptObject
Private Sub MainPage_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
me.jQuery = TryCast(System.Windows.Browser.HtmlPage.Window.GetProperty("jQuery"), System.Windows.Browser.ScriptObject)
If Not jQuery Is Nothing Then
'şimdi body'ini stilini değiştirelim
Dim body As System.Windows.Browser.ScriptObject = _
TryCast(jQuery.InvokeSelf("body"), System.Windows.Browser.ScriptObject)
'artık body = window.jQuery(body)
'şimdi css fonksiyonu cagıralım
body.Invoke("css", "background-color", "red")'tek bir stil özelliği değiştirme
Dim list As System.Windows.Browser.ScriptObject = _
System.Windows.Browser.HtmlPage.Window.CreateInstance("Object")
list.SetProperty("background-color", "green")
list.SetProperty("font-size", "15")
list.SetProperty("display", "block")
body.Invoke("css", list)'birden stil özelliği değiştirme
End If
End Sub
End Class
Dim list As System.Collections.Specialized.NameValueCollection = _
System.Web.HttpUtility.ParseQueryString( _
ctx.Request.RawUrl.Substring(_ctx.Request.RawUrl.LastIndexOf("?")))
| Ekran Görünteleri | ||||
 |  |  |  |  |
| Android ile gelen Direct Dial(Direkt Arama) widgeti hoşuma gitmedi.Bazen kazara dokunduğunuzda direkt numarayı arıyordu.Bende ona benzer bir widget oluşturdum.Arama yapmadan önce soruyor.Böylece hatalı aramaların önüne geçiliyor.Uygulama 2.0(Eclair) üzeri sürümlerde çalışıyor. | ||||
Widget(apk) yükleme dosyası | ||||
Dim nodes as System.Xml.XmlNodeList = xDocument.SelectNodes("//Etiket")Dim nodes As System.Xml.XmlNodeList = xml.GetElementsByTagName ("Etiket")
Dim xmlns As New System.Xml.XmlNamespaceManager(xDocument.NameTable)
Dim prefix As String = xml.DocumentElement.GetNamespaceOfPrefix("")
xmlns.AddNamespace("ns", prefix)
Dim nodes As System.Xml.XmlNodeList = xml.SelectNodes("//ns:Etiket", xmlns)
.....
Public Class OrnekServis
Inherits System.Web.Services.WebService
Public _Yetki As Yetki
Public Class Yetki : Inherits System.Web.Services.Protocols.SoapHeader
Public Sub New()
MyBase.New()
End Sub
Private _Ad As String
Public Property Ad() As String
Get
Return _Ad
End Get
Set(ByVal value As String)
_Ad = value
End Set
End Property
Private _Sifre As String
Public Property Sifre() As String
Get
Return _Sifre
End Get
Set(ByVal value As String)
_Sifre = value
End Set
End Property
Public Function Check() As Boolean
Return True
End Function
End Class
<SoapHeader("_Yetki", Direction:=SoapHeaderDirection.In)> _
<WebMethod(EnableSession:=True, Description:="Yeni bir dosya adi alir")> _
Public Function GetNewFileName() As String
If _Yetki is nothing Then return String.Empty
Dim g As String = Guid.NewGuid.ToString
Return g
End Function
End Class
.......
Public Class Yetki
Public Sub New()
MyBase.New()
End Sub
Private _Ad As String
Public Property Ad() As String
Get
Return _Ad
End Get
Set(ByVal value As String)
_Ad = value
End Set
End Property
Private _Sifre As String
Public Property Sifre() As String
Get
Return _Sifre
End Get
Set(ByVal value As String)
_Sifre = value
End Set
End Property
Public Function Check() As Boolean
Return True
End Function
End Class
..................
private _Service as OrnekServis.OrnekServisSoapClient
.......
Private Sub MainPage_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
Dim b As New System.ServiceModel.BasicHttpBinding()
Dim ep As New System.ServiceModel.EndpointAddress("http://localhost:8888/Ornek.asmx")
_Service = New OrnekServis.OrnekServisSoapClient(b, ep)
End Sub
_Servisnesnemizdeki GetNewFileNameAsync metodunu çağırmadan önce SoapHeaderimiz ayarlamamız gerek.Bunuda aşağıdaki kod ile yapıyoruz.
Private Sub SetHeader()
If Not _Service Is Nothing Then
Dim mout As Object = System.ServiceModel.Channels.MessageHeader.CreateHeader("Yetki", "http://tempuri.org/BenimNameSpace", New Yetki With {.Ad = "TestUser", .Sifre = "1001"}, New YetkiSeri())
Dim ctx As New System.ServiceModel.OperationContext(_Service.InnerChannel)
ctx.OutgoingMessageHeaders.Clear()
ctx.OutgoingMessageHeaders.Add(mout)
System.ServiceModel.OperationContext.Current = ctx'Aktif Operation Context'imiz ayarlıyoruz
'Yada aşağıdaki metoduda kullanabiliriz
'Using temp As New System.ServiceModel.OperationContextScope(_Service.InnerChannel) 'System.ServiceModel.OperationContext.Current.OutgoingMessageHeaders.Add(mout)
'End Using
End If
End Sub
new YetkiSerisınıfı olacaktır.Bu sınıf gönderilen nesneyi istediğimiz gibi formatlayacaktır.
Public Class YetkiSeri
Inherits System.Runtime.Serialization.XmlObjectSerializer
Public Sub New()
MyBase.New()
End Sub
Public Overloads Overrides Function IsStartObject(ByVal reader As System.Xml.XmlDictionaryReader) As Boolean
Throw New NotImplementedException("!")
End Function
Public Overloads Overrides Function ReadObject(ByVal reader As System.Xml.XmlDictionaryReader, ByVal verifyObjectName As Boolean) As Object
Throw New NotImplementedException("!")
End Function
Public Overloads Overrides Sub WriteEndObject(ByVal writer As System.Xml.XmlDictionaryWriter)
Throw New NotImplementedException("!")
End Sub
Public Overloads Overrides Sub WriteObjectContent(ByVal writer As System.Xml.XmlDictionaryWriter, ByVal graph As Object)
If TypeOf graph Is Yetki Then
'Yetki snıfımız burada serialize olacaktır
Dim y As Yetki = DirectCast(graph, Yetki)
writer.WriteStartElement("Ad")
writer.WriteString(y.Ad)
writer.WriteEndElement()
writer.WriteStartElement("Sifre")
writer.WriteString(y.Sifre)
writer.WriteEndElement()
End If
End Sub
Public Overloads Overrides Sub WriteStartObject(ByVal writer As System.Xml.XmlDictionaryWriter, ByVal graph As Object)
Throw New NotImplementedException("!")
End Sub
End Class
window.jQuery(function(){
//sayfa yüklenmesi tamamlandıktan sonra
//ValidatorUpdateDisplay fonksiyonu varsa kendimizinki ile
//değiştirelim
if (typeof (window.ValidatorUpdateDisplay) == 'function') {//
window._ValidatorUpdateDisplay = window.ValidatorUpdateDisplay;
//orjinal fonksiyonu koruyalım
window.ValidatorUpdateDisplay = ValidatorUpdateDisplay2;
//orjinal fonksiyon
//yerine kendi fonksiyonumuzu referans edelim
});
function ValidatorUpdateDisplay2(val) {//kendi ValidatorUpdateDisplay fonksiyonumuz
//val ile referans edilen
//RequiredFieldValidator,RegularExpressionValidator,vb
//bileşenlerine ait DOM nesnesi
var goOn = false;
try {
var refDom=null;//hangi bileşeni doğorrulayacağız
if (typeof (val.controltovalidate) == 'string')
refDom = $get(val.controltovalidate);
else
refDom = val.controltovalidate;
if (refDom)
refDom = window.jQuery(refDom);
if (!refDom)
refDom = window.jQuery(val);
if (refDom) {
//refDom genellikle
//input,select gibi bir bileşenin jQuery halidir
//Bazı validatorların controltovalidateleri olmuyor
//(bu durumda jQuery ise Validator nesnesi)
//jQuery ile fade In yapalım:)
refDom.fadeOut(0).fadeIn(1000);
//....başka türlü atraksiyonlarda yapılabilir
}
else
goOn = true;
} catch (e) { goOn = true; alert(e.message); }
if (goOn) _ValidatorUpdateDisplay(val);
//hata,veya benzeri durumda orjinal fonksiyonu çağıralım
}