Springen naar inhoud


- - - - -
VS 2015

Programma Lettertype Word Vanzelf Gewijzigd?

VS2015

  • Log in a.u.b. om te beantwoorden
Er zijn 6 reacties in dit onderwerp

#1 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 26 juni 2018 - 13:42

Mijn programma gebruitk standaard de normale lettertype.
Maar zodra ik een bestaande excel lijst inlaad in een datagridview wijzigd de letterype en grootte van alles.
Weet iemand hoe dit kan?
De lettertype en grootte van de excel is hetzelfde als de in te lezen csv file.

Visual Basic Code:

Dim dtSheet1 As New DataTable
Using cn As New System.Data.OleDb.OleDbConnection
Dim Builder As New OleDbConnectionStringBuilder With
{
.DataSource = "c:\HMI Project\HMI Reader\HMI Reader\bin\Debug\nummers.xlsx",
.Provider = "Microsoft.ACE.OLEDB.12.0"
}
Builder.Add("Extended Properties", "Excel 12.0; IMEX=1;HDR=Yes;")
cn.ConnectionString = Builder.ConnectionString

cn.Open()

Using cmd As OleDbCommand = New OleDbCommand With {.Connection = cn}
cmd.CommandText = "SELECT * FROM [Blad1$]"
Dim dr As System.Data.IDataReader = cmd.ExecuteReader

dtSheet1.Load(dr)
DataGridView2.DataSource = dtSheet1
End Using
cn.Close()
End Using


#2 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1092 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 27 juni 2018 - 23:45

Bericht bekijkenpascalbianca, op 26 juni 2018 - 13:42, zei:

Mijn programma gebruitk standaard de normale lettertype.
Maar zodra ik een bestaande excel lijst inlaad in een datagridview wijzigd de letterype en grootte van alles.
Weet iemand hoe dit kan?
De lettertype en grootte van de excel is hetzelfde als de in te lezen csv file.

Visual Basic Code:

Dim dtSheet1 As New DataTable
Using cn As New System.Data.OleDb.OleDbConnection
Dim Builder As New OleDbConnectionStringBuilder With
{
.DataSource = "c:\HMI Project\HMI Reader\HMI Reader\bin\Debug\nummers.xlsx",
.Provider = "Microsoft.ACE.OLEDB.12.0"
}
Builder.Add("Extended Properties", "Excel 12.0; IMEX=1;HDR=Yes;")
cn.ConnectionString = Builder.ConnectionString

cn.Open()

Using cmd As OleDbCommand = New OleDbCommand With {.Connection = cn}
cmd.CommandText = "SELECT * FROM [Blad1$]"
Dim dr As System.Data.IDataReader = cmd.ExecuteReader

dtSheet1.Load(dr)
DataGridView2.DataSource = dtSheet1
End Using
cn.Close()
End Using

Vreemd. Ik kan dat niet reproduceren.

#3 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 28 juni 2018 - 13:44

Meende eerst dat ik iets fout had in mijn programma, dus heb ik een geheel nieuw stukje aangemaakt , gewoon 1 knop een datagridview.
Onder de knop de code om de excel file in te laden en daar gebeurd het ook bij.
Het voorbeeld kun je downloaden in de link .:  https://ufile.io/eg8yj

#4 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1092 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 28 juni 2018 - 16:05

Bericht bekijkenpascalbianca, op 28 juni 2018 - 13:44, zei:

Meende eerst dat ik iets fout had in mijn programma, dus heb ik een geheel nieuw stukje aangemaakt , gewoon 1 knop een datagridview.
Onder de knop de code om de excel file in te laden en daar gebeurd het ook bij.
Het voorbeeld kun je downloaden in de link .:  https://ufile.io/eg8yj
Hier werkt dat gewoon zoals verwacht.
Zowel jouw .exe als mijn eigen build.

#5 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 29 juni 2018 - 08:42

Dat is erg vreemd :?
Dan zal ik de rest moeten nalopen dan.
Toch super bedankt dat je het even wilde controleren voor me :woohoo:

#6 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1092 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 29 juni 2018 - 08:57

Bericht bekijkenpascalbianca, op 29 juni 2018 - 08:42, zei:

Dat is erg vreemd :?
Dan zal ik de rest moeten nalopen dan.
Toch super bedankt dat je het even wilde controleren voor me :woohoo:

Gebruik je Office 2016?
Daarvoor heb ik wat meldingen zien passeren (een goed half jaar geleden) over standard fonts die gereset werden in bepaalde omstandigheden (maar dus enkel binnenin excel) na een bepaalde update van windows  10.

#7 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 02 juli 2018 - 15:19

ow das dan lekker.
Moet ik dus eigenlijk de font die ik gebruik in mijn form terug moeten zetten dus.

[update]
Ik heb de andere weg maar gekozen.
Heb mijn lijst omgezet naar CSV en dat inlezen in de datagridview met als resultaat geen verandering in scherm in lettertype.





Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)