Discussion :

[xeron33]

Bonsoir à tous et à toutes,
J'ai un problème sous VS 2022, quand je veux importer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Windows.Documents

J'ai l'erreur suivante :

BC40056: Namespace or type specified in the Imports '<qualifiedelementname>' doesn't contain any public member or cannot be found

Si quelqu'un a une idée, mon projet est en vb.net WinForm

[umfred]

Tu as quoi comme Framework cible du projet ?

[popo]

Il te manque la référence à "PresentationFramework"

[xeron33]

Tu as quoi comme Framework cible du projet ?

*********************************************
Merci,
Je n'arrive pas à voir la version du Framework dans VS, j'ai lu dans la doc de regarder dans l'explorateur de Solutions qui me donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
<Project Sdk="Microsoft.NET.Sdk">

  <PropertyGroup>
    <OutputType>WinExe</OutputType>
    <TargetFramework>net8.0-windows</TargetFramework>
    <StartupObject>Sub Main</StartupObject>
    <UseWindowsForms>true</UseWindowsForms>
    <MyType>WindowsForms</MyType>
  </PropertyGroup>

  <ItemGroup>
    <Import Include="System.Data" />
    <Import Include="System.Drawing" />
    <Import Include="System.Windows.Forms" />
  </ItemGroup>

  <ItemGroup>
    <Compile Update="My Project\Application.Designer.vb">
      <DesignTime>True</DesignTime>
      <AutoGen>True</AutoGen>
      <DependentUpon>Application.myapp</DependentUpon>
    </Compile>
  </ItemGroup>

  <ItemGroup>
    <None Update="My Project\Application.myapp">
      <Generator>MyApplicationCodeGenerator</Generator>
      <LastGenOutput>Application.Designer.vb</LastGenOutput>
    </None>
  </ItemGroup>

</Project>

peut être que c'est <TargetFramework>net8.0-windows</TargetFramework> çà peut te donner une idée

J'arrive pas non plus à rajouter la référence à "PresentationFramework"

[popo]

Tu as créé une application Winform.

PresentationFramework et par extension le namespace System.Windows.Documents font partie de WPF.

[Pol63]

ce namespace ne fait pas partie de windows forms (c'est du wpf)
si tu as trouvé un bout de code sur internet il n'est pas compatible avec ton projet

c'est pour faire quoi ?

[xeron33]

Bonjour et merci,
C'est pour récupérer du texte provenant d'un controle RichTextBox en cliquant sur un bouton j'ai récupéré cette fonction sur le net :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Function StringFromRichTextBox(ByVal rtb As RichTextBox) As String
    ' TextPointer to the start of content in the RichTextBox.
    ' TextPointer to the end of content in the RichTextBox.
    Dim textRange As New TextRange(rtb.Document.ContentStart, rtb.Document.ContentEnd)
 
    ' The Text property on a TextRange object returns a string
    ' representing the plain text content of the TextRange.
    Return textRange.Text
End Function

et ici New TextRange m'indique l'erreur BC30002: Type '<typename>' is not defined j'ai vu que la classe TextRange :
Définition

Espace de noms:
System.Windows.Documents
J'ai fait : Imports System.Windows.Documents et c'est là que j'ai eu l'erreur BC40056

[Pol63]

trouve la fonction en windows forms pour faire ça
à priori ca serait juste rtb.Text

[umfred]

*********************************************
Merci,
Je n'arrive pas à voir la version du Framework dans VS, j'ai lu dans la doc de regarder dans l'explorateur de Solutions qui me donne ça :

Tu y as accès dans les propriétés du projet sinon

[xeron33]

trouve la fonction en windows forms pour faire ça
à priori ca serait juste rtb.Text

****************************************
Merci de ton aide, oui j'ai trouvé tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Function StringFromRichTextBox(ByVal rtb As RichTextBox) As String
    Return RichTextBox1.Text
End Function

puis pour rajouter le texte à la fin du fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim inputString As String = StringFromRichTextBox(RichTextBox1)
    My.Computer.FileSystem.WriteAllText(
      "C:\Users\Documents\Module_Program_VB.txt", inputString, True)
End Sub

A+